Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision ba863fd6

Von Moritz Bunkus vor fast 18 Jahren hinzugefügt

  • ID ba863fd67776403dcf9de6b1141509a48a4b7204
  • Vorgänger f3d322cf
  • Nachfolger ebacee0a

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.

Unterschiede anzeigen:

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