X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Felements%2Fmenubar.html;h=fe49f7b2e148c942753c872c0a285c6775dad97c;hb=7b125e587a4d1ee0aca692e23ea7897f671855ae;hp=87a50312c2c2210ce0ce7fffc56e8ccfbc1907cd;hpb=673b9a458d9138523026963df6fa3b4683e09bae;p=freeside.git
diff --git a/httemplate/elements/menubar.html b/httemplate/elements/menubar.html
index 87a50312c..fe49f7b2e 100644
--- a/httemplate/elements/menubar.html
+++ b/httemplate/elements/menubar.html
@@ -1,8 +1,59 @@
-<%
- my($item, $url, @html);
- while (@_) {
- ($item, $url) = splice(@_,0,2);
- push @html, qq!$item!;
+<%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'} ) {
+% my $s = '';
+
+ <% join("$s ", ( '', @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" );
+
}
-%>
-<%= join(' | ', @html) %>
+
+ push @html, qq!$item!;
+
+}
+
+%init>