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
  10 <% join(' | ', @html) %>