5 include( '/elements/menubar.html',
7 #options hashref (optional)
8 { 'newstyle' => 1, #may become the default at some point
9 'url_base' => '', #prepended to menubar URLs, for convenience
10 'selected' => '', #currently selected label
13 #menubar entries (required)
21 %if ( $opt->{'newstyle'} ) {
23 <TABLE BGCOLOR="#000000" BORDER=0 CELLSPACING=0 CELLPADDING=0>
25 <TD><IMG SRC="<%$fsurl%>images/gray-black-side.png" WIDTH=13 HEIGHT=25></TD>
27 <% join(' ', @html ) %>
29 <TD><IMG SRC="<%$fsurl%>images/black-gray-side.png" WIDTH=13 HEIGHT=25></TD>
36 <% join(' | ', @html) %>
41 my $opt = ref($_[0]) ? shift : {};
43 my $url_base = $opt->{'url_base'};
48 my ($item, $url) = splice(@_,0,2);
49 next if $item =~ /^\s*Main\s+Menu\s*$/i;
52 if ( $opt->{'newstyle'} ) {
54 my $dclass = $item eq $opt->{'selected'}
55 ? 'fsblackbuttonselected'
59 qq( CLASS="$dclass" ).
60 qq( onMouseOver="this.className='fsblackbuttonselected'; return true;" ).
61 qq( onMouseOut="this.className='$dclass'; return true;" );
64 push @html, qq!<A HREF="$url_base$url" $style>$item</A>!;