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.