skin RT 3.8, slight new look for 2.1, RT#6640
[freeside.git] / httemplate / elements / menubar.html
1 <%doc>
2
3 Example:
4
5   include( '/elements/menubar.html',
6            
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
11            },
12
13            #menubar entries (required)
14            'label'  => $url,
15            'label2' => $url2,
16            #etc.
17
18          );
19
20 </%doc>
21 %if ( $opt->{'newstyle'} ) {
22
23    <TABLE BGCOLOR="#000000" BORDER=0 CELLSPACING=0 CELLPADDING=0>
24      <TR>
25        <TD><IMG SRC="<%$fsurl%>images/gray-black-side.png" WIDTH=13 HEIGHT=25></TD>
26        <TD>
27          <% join(' ', @html ) %>
28        </TD>
29        <TD><IMG SRC="<%$fsurl%>images/black-gray-side.png" WIDTH=13 HEIGHT=25></TD>
30        </TD>
31      </TR>
32    </TABLE>
33
34 %} else {
35
36    <% join(' | ', @html) %>
37
38 %}
39 <%init>
40
41 my $opt = ref($_[0]) ? shift : {};
42
43 my $url_base = $opt->{'url_base'};
44
45 my @html;
46 while (@_) {
47
48   my ($item, $url) = splice(@_,0,2);
49   next if $item =~ /^\s*Main\s+Menu\s*$/i;
50
51   my $style = '';
52   if ( $opt->{'newstyle'} ) {
53
54     my $dclass = $item eq $opt->{'selected'}
55                    ? 'fsblackbuttonselected'
56                    : 'fsblackbutton';
57
58     $style =
59       qq( CLASS="$dclass" ).
60       qq( onMouseOver="this.className='fsblackbuttonselected'; return true;" ).
61       qq( onMouseOut="this.className='$dclass'; return true;" );
62   }
63
64   push @html, qq!<A HREF="$url_base$url" $style>$item</A>!;
65
66 }
67
68 </%init>