httemplate/elements/menubar.html

   1 <%
   2   my($item, $url, @html);
   3   while (@_) {
   4     ($item, $url) = splice(@_,0,2);
   5     next if $item =~ /^\s*Main\s+Menu\s*$/i;
   6     push @html, qq!<A HREF="$url">$item</A>!;
   7   }
   8 %>
   9 <%= join(' | ', @html) %>