X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=httemplate%2Felements%2Fmenubar.html;h=ffe83ec571a404f6e1c469af9f4fe12525da4833;hp=87a50312c2c2210ce0ce7fffc56e8ccfbc1907cd;hb=f48ffc61601d08024aeff19ecd07d7420fc4e5b3;hpb=e283ab567e6890727e4d8e35c1d8097398678753

diff --git a/httemplate/elements/menubar.html b/httemplate/elements/menubar.html
index 87a50312c..ffe83ec57 100644
--- a/httemplate/elements/menubar.html
+++ b/httemplate/elements/menubar.html
@@ -1,8 +1,64 @@
-<%
-  my($item, $url, @html);
-  while (@_) {
-    ($item, $url) = splice(@_,0,2);
-    push @html, qq!<A HREF="$url">$item</A>!;
+<%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" );
+
   }
-%>
-<%= join(' | ', @html) %>
+
+  if ($item eq 'popup') {
+   push @html, $url;
+  }
+  else {
+    push @html, qq!<A HREF="$url_base$url" $style>$item</A>!;
+  }
+
+}
+
+</%init>