5 include( '/elements/menubar.html',
7 #options hashref (optional)
8 { 'newstyle' => 1, #may become the default at some point
11 #menubar entries (required)
19 %if ( $opt->{'newstyle'} ) {
21 % #false laziness w/header.html... shouldn't these just go in freeside.css?
23 <style type="text/css">
25 background-color:#333333;
28 border-top-color:#cccccc;
29 border-left-color:#cccccc;
30 border-right-color:#aaaaaa;
31 border-bottom-color:#aaaaaa;
39 filter:progid:DXImageTransform.Microsoft.Gradient(GradientType=0,StartColorStr='#ff333333',EndColorStr='#ff666666')
42 a.fsblackbuttonselected {
43 background-color:#7e0079;
46 border-top-color:#cccccc;
47 border-left-color:#cccccc;
48 border-right-color:#aaaaaa;
49 border-bottom-color:#aaaaaa;
57 filter:progid:DXImageTransform.Microsoft.Gradient(GradientType=0,StartColorStr='#ff330033',EndColorStr='#ff7e0079')
61 <TABLE BGCOLOR="#000000" BORDER=0 CELLSPACING=0 CELLPADDING=4>
63 <TD STYLE="background-image:url(<%$fsurl%>images/gray-black-side.png); background-repeat:repeat-y;padding-left:0px">
67 <% join(' ', @html ) %>
69 <TD STYLE="background-image:url(<%$fsurl%>images/black-gray-side.png); background-repeat:repeat-y;padding-right:0px">
77 <% join(' | ', @html) %>
82 my $opt = ref($_[0]) ? shift : {};
84 my $url_base = $opt->{'url_base'};
89 my ($item, $url) = splice(@_,0,2);
90 next if $item =~ /^\s*Main\s+Menu\s*$/i;
93 if ( $opt->{'newstyle'} ) {
95 my $dclass = $item eq $opt->{'selected'}
96 ? 'fsblackbuttonselected'
100 qq( CLASS="$dclass" ).
101 qq( onMouseOver="this.className='fsblackbuttonselected'; return true;" ).
102 qq( onMouseOut="this.className='$dclass'; return true;" );
105 push @html, qq!<A HREF="$url_base$url" $style>$item</A>!;