blob: 29facb6b6422005b9d10fcd494dc008b5cd3e83e (
plain)
1
2
3
4
5
6
7
8
9
|
<%
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) %>
|