<%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. ); %if ( $opt->{'newstyle'} ) {
<% join('', @html ) %>
%} 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" ); } if ($item eq 'popup') { push @html, $url; } else { push @html, qq!$item!; } }