path: root/httemplate/elements/menubar.html

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