######################################################################
# 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
#
# 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";
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;
</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});
}
+
+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> | ";
+ }
+
+}
+
+