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 % #false laziness w/header.html... shouldn't these just go in freeside.css?
25 <style type="text/css">
27 background-color:#333333;
30 border-top-color:#cccccc;
31 border-left-color:#cccccc;
32 border-right-color:#aaaaaa;
33 border-bottom-color:#aaaaaa;
41 filter:progid:DXImageTransform.Microsoft.Gradient(GradientType=0,StartColorStr='#ff333333',EndColorStr='#ff666666')
44 a.fsblackbuttonselected {
45 background-color:#7e0079;
48 border-top-color:#cccccc;
49 border-left-color:#cccccc;
50 border-right-color:#aaaaaa;
51 border-bottom-color:#aaaaaa;
59 filter:progid:DXImageTransform.Microsoft.Gradient(GradientType=0,StartColorStr='#ff330033',EndColorStr='#ff7e0079')
63 <TABLE BGCOLOR="#000000" BORDER=0 CELLSPACING=0 CELLPADDING=0>
65 <TD><IMG SRC="<%$fsurl%>images/gray-black-side.png" WIDTH=13 HEIGHT=25></TD>
67 <% join(' ', @html ) %>
69 <TD><IMG SRC="<%$fsurl%>images/black-gray-side.png" WIDTH=13 HEIGHT=25></TD>
76 <% join(' | ', @html) %>
81 my $opt = ref($_[0]) ? shift : {};
83 my $url_base = $opt->{'url_base'};
88 my ($item, $url) = splice(@_,0,2);
89 next if $item =~ /^\s*Main\s+Menu\s*$/i;
92 if ( $opt->{'newstyle'} ) {
94 my $dclass = $item eq $opt->{'selected'}
95 ? 'fsblackbuttonselected'
99 qq( CLASS="$dclass" ).
100 qq( onMouseOver="this.className='fsblackbuttonselected'; return true;" ).
101 qq( onMouseOut="this.className='$dclass'; return true;" );
104 push @html, qq!<A HREF="$url_base$url" $style>$item</A>!;