1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
|
######################################################################
# SQL-Ledger Accounting
# Copyright (c) 2001
#
# Author: Dieter Simader
# Email: dsimader@sql-ledger.org
# Web: http://www.sql-ledger.org
#
# Contributors: Christopher Browne
#
# 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
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
#######################################################################
#
# 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";
use SL::Menu;
1;
# end of main
sub display {
$menu = new Menu "$menufile";
@menuorder = $menu->access_control(\%myconfig);
$form->{title} = "SQL-Ledger $form->{version}";
$form->header;
$offset = int (21 - $#menuorder)/2;
print "<pre>";
print "\n" x $offset;
print "</pre>";
print qq|<center><table>|;
map { print "<tr><td>".$menu->menuitem(\%myconfig, \%$form, $_).$locale->text($_).qq|</a></td></tr>|; } @menuorder;
print qq'
</table>
</body>
</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};
# build tiered menus
@menuorder = $menu->access_control(\%myconfig, $form->{level});
foreach $item (@menuorder) {
$a = $item;
$item =~ s/^$form->{level}--//;
push @neworder, $a unless ($item =~ /--/);
}
@menuorder = @neworder;
$level = $form->{level};
$level =~ s/--/ /g;
$form->{title} = $locale->text($level);
$form->header;
$offset = int (21 - $#menuorder)/2;
print "<pre>";
print "\n" x $offset;
print "</pre>";
print qq|<center><table>|;
foreach $item (@menuorder) {
$label = $item;
$label =~ s/$form->{level}--//g;
# remove target
$menu->{$item}{target} = "";
print "<tr><td>".$menu->menuitem(\%myconfig, \%$form, $item, $form->{level}).$locale->text($label)."</a></td></tr>";
}
print qq'</table>
</body>
</html>
';
}
sub acc_menu {
§ion_menu;
}
|