Revision 1bb4746a
Von Sven Schöling vor mehr als 14 Jahren hinzugefügt
SL/Dispatcher.pm | ||
---|---|---|
70 | 70 |
$::userspath = "users"; |
71 | 71 |
$::templates = "templates"; |
72 | 72 |
$::memberfile = "users/members"; |
73 |
$::menufile = "menu.ini"; |
|
73 | 74 |
$::sendmail = "| /usr/sbin/sendmail -t"; |
74 | 75 |
$::lxdebug = LXDebug->new; |
75 | 76 |
$::auth = SL::Auth->new; |
bin/mozilla/do.pl | ||
---|---|---|
48 | 48 |
|
49 | 49 |
use strict; |
50 | 50 |
|
51 |
my $print_post; |
|
52 |
|
|
53 | 51 |
1; |
54 | 52 |
|
55 | 53 |
# end of main |
... | ... | |
905 | 903 |
|
906 | 904 |
$form->{print_and_save} = 1; |
907 | 905 |
|
908 |
$print_post = 1; |
|
909 |
|
|
910 | 906 |
my $saved_form = save_form(); |
911 | 907 |
|
912 | 908 |
save(); |
bin/mozilla/menu.pl | ||
---|---|---|
84 | 84 |
|
85 | 85 |
$mainlevel = $form->{level}; |
86 | 86 |
$mainlevel =~ s/\Q$mainlevel\E--//g; |
87 |
my $menu = new Menu "$menufile";
|
|
87 |
my $menu = Menu->new($::menufile);
|
|
88 | 88 |
|
89 | 89 |
$form->{title} = $locale->text('Accounting Menu'); |
90 | 90 |
|
bin/mozilla/menuXML.pl | ||
---|---|---|
36 | 36 |
# 2007-10-14 - XMLified - Holger Will <holger@treebuilder.de> |
37 | 37 |
####################################################################### |
38 | 38 |
|
39 |
my $menufile = "menu.ini"; |
|
40 | 39 |
use SL::Menu; |
41 | 40 |
|
42 | 41 |
use CGI::Carp qw(fatalsToBrowser); |
... | ... | |
98 | 97 |
|
99 | 98 |
my $mainlevel = $form->{level}; |
100 | 99 |
$mainlevel =~ s/$mainlevel--//g; |
101 |
my $menu = new Menu "$menufile";
|
|
100 |
my $menu = Menu->new($::menufile);
|
|
102 | 101 |
|
103 | 102 |
$| = 1; |
104 | 103 |
|
bin/mozilla/menujs.pl | ||
---|---|---|
35 | 35 |
# 2004-12-14 - Holger Lindemann |
36 | 36 |
####################################################################### |
37 | 37 |
|
38 |
my $menufile = "menu.ini"; |
|
39 | 38 |
use SL::Menu; |
40 | 39 |
use CGI::Carp qw(fatalsToBrowser); |
41 | 40 |
|
... | ... | |
136 | 135 |
|
137 | 136 |
my $mainlevel = $form->{level}; |
138 | 137 |
$mainlevel =~ s/$mainlevel--//g; |
139 |
my $menu = new Menu "$menufile";
|
|
138 |
my $menu = Menu->new($::menufile);
|
|
140 | 139 |
|
141 | 140 |
$| = 1; |
142 | 141 |
|
bin/mozilla/menuv3.pl | ||
---|---|---|
37 | 37 |
|
38 | 38 |
use strict; |
39 | 39 |
|
40 |
my $menufile = "menu.ini"; |
|
41 |
|
|
42 | 40 |
1; |
43 | 41 |
|
44 | 42 |
# end of main |
... | ... | |
87 | 85 |
|
88 | 86 |
my $mainlevel = $form->{level}; |
89 | 87 |
$mainlevel =~ s/\Q$mainlevel\E--//g; |
90 |
my $menu = new Menu "$menufile";
|
|
88 |
my $menu = Menu->new($::menufile);
|
|
91 | 89 |
|
92 | 90 |
$| = 1; |
93 | 91 |
|
bin/mozilla/menuv4.pl | ||
---|---|---|
37 | 37 |
|
38 | 38 |
use strict; |
39 | 39 |
|
40 |
my $menufile = "menu.ini"; |
|
41 |
|
|
42 | 40 |
1; |
43 | 41 |
|
44 | 42 |
# end of main |
... | ... | |
89 | 87 |
|
90 | 88 |
my $mainlevel = $form->{level}; |
91 | 89 |
$mainlevel =~ s/\Q$mainlevel\E--//g; |
92 |
my $menu = new Menu "$menufile";
|
|
90 |
my $menu = Menu->new($::menufile);
|
|
93 | 91 |
|
94 | 92 |
$| = 1; |
95 | 93 |
|
bin/mozilla/oe.pl | ||
---|---|---|
50 | 50 |
|
51 | 51 |
use strict; |
52 | 52 |
|
53 |
my $print_post; |
|
54 | 53 |
our %TMPL_VAR; |
55 | 54 |
|
56 | 55 |
1; |
... | ... | |
1858 | 1857 |
|
1859 | 1858 |
$form->{print_and_save} = 1; |
1860 | 1859 |
|
1861 |
$print_post = 1; |
|
1862 |
|
|
1863 | 1860 |
my $saved_form = save_form(); |
1864 | 1861 |
|
1865 | 1862 |
save(); |
Auch abrufbar als: Unified diff
Überflüssige globale Variablen entfernt.
Bzw. die "my $menufile" aus den verschiedenen Menüscripten in eine
einzige globale Variable verschoben.
Conflicts: