httemplate/elements/menubar.html

   1 <%
   2   my($item, $url, @html);
   3   while (@_) {
   4     ($item, $url) = splice(@_,0,2);
   5     push @html, qq!<A HREF="$url">$item</A>!;
   6   }
   7 %>
   8 <%= join(' | ', @html) %>