Revision ba863fd6
Von Moritz Bunkus vor fast 18 Jahren hinzugefügt
| SL/Inifile.pm | ||
|---|---|---|
|
my $id = "";
|
||
|
my $skip;
|
||
|
|
||
|
local *FH;
|
||
|
|
||
|
$type = ref($self) || $self;
|
||
|
|
||
|
open FH, "$file" or Form->error("$file : $!");
|
||
| bin/mozilla/menu.pl | ||
|---|---|---|
|
$mainlevel = $form->{level};
|
||
|
$mainlevel =~ s/$mainlevel--//g;
|
||
|
my $menu = new Menu "$menufile";
|
||
|
$menu = new Menu "custom_$menufile" if (-f "custom_$menufile");
|
||
|
$menu = new Menu "$form->{login}_$menufile"
|
||
|
if (-f "$form->{login}_$menufile");
|
||
|
|
||
|
$form->{title} = $locale->text('Accounting Menu');
|
||
|
|
||
| bin/mozilla/menunew.pl | ||
|---|---|---|
|
$mainlevel = $form->{level};
|
||
|
$mainlevel =~ s/$mainlevel--//g;
|
||
|
my $menu = new Menu "$menufile";
|
||
|
$menu = new Menu "custom_$menufile" if (-f "custom_$menufile");
|
||
|
$menu = new Menu "$form->{login}_$menufile"
|
||
|
if (-f "$form->{login}_$menufile");
|
||
|
|
||
|
$| = 1;
|
||
|
|
||
| bin/mozilla/menuv3.pl | ||
|---|---|---|
|
$mainlevel = $form->{level};
|
||
|
$mainlevel =~ s/$mainlevel--//g;
|
||
|
my $menu = new Menu "$menufile";
|
||
|
$menu = new Menu "custom_$menufile" if (-f "custom_$menufile");
|
||
|
$menu = new Menu "$form->{login}_$menufile"
|
||
|
if (-f "$form->{login}_$menufile");
|
||
|
|
||
|
$| = 1;
|
||
|
|
||
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.