import sql-ledger 2.4.4

[freeside.git] / sql-ledger / bin / lynx / menu.pl

diff --git a/sql-ledger/bin/lynx/menu.pl b/sql-ledger/bin/lynx/menu.pl
index 5599716..16abe97 100644 (file)
--- a/sql-ledger/bin/lynx/menu.pl
+++ b/sql-ledger/bin/lynx/menu.pl
@@ -1,12 +1,12 @@
 ######################################################################
 # SQL-Ledger Accounting
-# Copyright (c) 2001
+# Copyright (c) 2000
 #
 #  Author: Dieter Simader
 #   Email: dsimader@sql-ledger.org
 #     Web: http://www.sql-ledger.org
 #
-#  Contributors: Christopher Browne
+#  Contributors: Christopher Browne <cbrowne@acm.org>
 #
 # This program is free software; you can redistribute it and/or modify
 # it under the terms of the GNU General Public License as published by
@@ -24,10 +24,6 @@
 #
 # menu for text based browsers (lynx)
 #
-# CHANGE LOG:
-#   DS. 2000-07-04  Created
-#   DS. 2001-08-07  access control
-#   CBB 2002-02-09  Refactored HTML out to subroutines
 #######################################################################
 
 $menufile = "menu.ini";
@@ -42,12 +38,14 @@ use SL::Menu;
 sub display {
 
   $menu = new Menu "$menufile";
+  $menu = new Menu "custom_$menufile" if (-f "custom_$menufile");
+  $menu = new Menu "$form->{login}_$menufile" if (-f "$form->{login}_$menufile");
   
   @menuorder = $menu->access_control(\%myconfig);
 
   $form->{title} = "SQL-Ledger $form->{version}";
   
-  $form->header;
+  $form->header(1);
 
   $offset = int (21 - $#menuorder)/2;
 
@@ -66,17 +64,15 @@ sub display {
 </html>
 ';
 
-  # display the company logo
-#  $argv = "login=$form->{login}&password=$form->{password}&path=$form->{path}&action=company_logo&noheader=1";
-#  exec "./login.pl", $argv;
-  
 }
 
 
 sub section_menu {
 
   $menu = new Menu "$menufile", $form->{level};
-  
+  $menu = new Menu "custom_$menufile", $form->{level} if (-f "custom_$menufile");
+  $menu = new Menu "$form->{login}_$menufile", $form->{level} if (-f "$form->{login}_$menufile");
+
   # build tiered menus
   @menuorder = $menu->access_control(\%myconfig, $form->{level});
 
@@ -126,3 +122,30 @@ sub acc_menu {
   
 }
 
+
+sub menubar {
+  $menu = new Menu "$menufile", "";
+  
+  # build menubar
+  @menuorder = $menu->access_control(\%myconfig, "");
+
+  @neworder = ();
+  map { push @neworder, $_ unless ($_ =~ /--/) } @menuorder;
+  @menuorder = @neworder;
+
+  print "<p>";
+  $form->{script} = "menu.pl";
+
+  print "| ";
+  foreach $item (@menuorder) {
+    $label = $item;
+
+    # remove target
+    $menu->{$item}{target} = "";
+
+    print $menu->menuitem(\%myconfig, \%$form, $item, "").$locale->text($label)."</a> | ";
+  }
+  
+}
+
+