Revision ba863fd6
Von Moritz Bunkus vor mehr als 17 Jahren hinzugefügt
| SL/Inifile.pm | ||
|---|---|---|
| 43 | 43 |
my $id = ""; |
| 44 | 44 |
my $skip; |
| 45 | 45 |
|
| 46 |
local *FH; |
|
| 47 |
|
|
| 46 | 48 |
$type = ref($self) || $self; |
| 47 | 49 |
|
| 48 | 50 |
open FH, "$file" or Form->error("$file : $!");
|
| bin/mozilla/menu.pl | ||
|---|---|---|
| 72 | 72 |
$mainlevel = $form->{level};
|
| 73 | 73 |
$mainlevel =~ s/$mainlevel--//g; |
| 74 | 74 |
my $menu = new Menu "$menufile"; |
| 75 |
$menu = new Menu "custom_$menufile" if (-f "custom_$menufile"); |
|
| 76 |
$menu = new Menu "$form->{login}_$menufile"
|
|
| 77 |
if (-f "$form->{login}_$menufile");
|
|
| 78 | 75 |
|
| 79 | 76 |
$form->{title} = $locale->text('Accounting Menu');
|
| 80 | 77 |
|
| bin/mozilla/menunew.pl | ||
|---|---|---|
| 126 | 126 |
$mainlevel = $form->{level};
|
| 127 | 127 |
$mainlevel =~ s/$mainlevel--//g; |
| 128 | 128 |
my $menu = new Menu "$menufile"; |
| 129 |
$menu = new Menu "custom_$menufile" if (-f "custom_$menufile"); |
|
| 130 |
$menu = new Menu "$form->{login}_$menufile"
|
|
| 131 |
if (-f "$form->{login}_$menufile");
|
|
| 132 | 129 |
|
| 133 | 130 |
$| = 1; |
| 134 | 131 |
|
| bin/mozilla/menuv3.pl | ||
|---|---|---|
| 133 | 133 |
$mainlevel = $form->{level};
|
| 134 | 134 |
$mainlevel =~ s/$mainlevel--//g; |
| 135 | 135 |
my $menu = new Menu "$menufile"; |
| 136 |
$menu = new Menu "custom_$menufile" if (-f "custom_$menufile"); |
|
| 137 |
$menu = new Menu "$form->{login}_$menufile"
|
|
| 138 |
if (-f "$form->{login}_$menufile");
|
|
| 139 | 136 |
|
| 140 | 137 |
$| = 1; |
| 141 | 138 |
|
Auch abrufbar als: Unified diff
Filehandles als lokal deklarieren; Kosmetik; Argumente für open() nicht aus $form erzeugen. Das Feature, dass für jede Person eine eigene menu.ini eingelesen wird, wird hoffentlich nie jemand eingesetzt haben.