The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
[% # $Id: stack,v 1.3 2005/02/02 19:34:06 jv Exp $ -%]
[%

pending = [ menu ];

WHILE pending.size;
    menu = pending.shift;

    "<p>\n";
    FOREACH item = menu.items;
	INCLUDE menu/text
	  link = {
	    text     = item.name
	    url      = site.topdir _ item.url
	    class    = item.hot ? 'menuselect' : 'menu'
	  };

	"<br />\n";

	pending.push(item)
	  IF item.subs;
    END;
    "</p>\n";
END;

-%]