diff options
Diffstat (limited to 'httemplate/elements/menubar.html')
-rw-r--r-- | httemplate/elements/menubar.html | 59 |
1 files changed, 0 insertions, 59 deletions
diff --git a/httemplate/elements/menubar.html b/httemplate/elements/menubar.html deleted file mode 100644 index c14904337..000000000 --- a/httemplate/elements/menubar.html +++ /dev/null @@ -1,59 +0,0 @@ -<%doc> - -Example: - - include( '/elements/menubar.html', - - #options hashref (optional) - { 'newstyle' => 1, #may become the default at some point - 'url_base' => '', #prepended to menubar URLs, for convenience - 'selected' => '', #currently selected label - }, - - #menubar entries (required) - 'label' => $url, - 'label2' => $url2, - #etc. - - ); - -</%doc> -%if ( $opt->{'newstyle'} ) { - - <DIV CLASS="fstabs"> - <% join('', @html ) %> - </DIV> - -%} else { - - <% join(' | ', @html) %> - -%} -<%init> - -my $opt = ref($_[0]) ? shift : {}; - -my $url_base = $opt->{'url_base'}; - -my @html; -while (@_) { - - my ($item, $url) = splice(@_,0,2); - next if $item =~ /^\s*Main\s+Menu\s*$/i; - - my $style = ''; - if ( $opt->{'newstyle'} ) { - - my $dclass = $item eq $opt->{'selected'} - ? 'fstabselected' - : 'fstab'; - - $style = qq( CLASS="$dclass" ); - - } - - push @html, qq!<A HREF="$url_base$url" $style>$item</A>!; - -} - -</%init> |