Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 1bb4746a

Von Sven Schöling vor mehr als 14 Jahren hinzugefügt

  • ID 1bb4746aab9fd0062463cf1c6374fea3e3b15eae
  • Vorgänger b38b1d9b
  • Nachfolger a9f5ce46

Überflüssige globale Variablen entfernt.

Bzw. die "my $menufile" aus den verschiedenen Menüscripten in eine
einzige globale Variable verschoben.

Conflicts:

bin/mozilla/menu.pl

Unterschiede anzeigen:

SL/Dispatcher.pm
$::userspath = "users";
$::templates = "templates";
$::memberfile = "users/members";
$::menufile = "menu.ini";
$::sendmail = "| /usr/sbin/sendmail -t";
$::lxdebug = LXDebug->new;
$::auth = SL::Auth->new;
bin/mozilla/do.pl
use strict;
my $print_post;
1;
# end of main
......
$form->{print_and_save} = 1;
$print_post = 1;
my $saved_form = save_form();
save();
bin/mozilla/menu.pl
$mainlevel = $form->{level};
$mainlevel =~ s/\Q$mainlevel\E--//g;
my $menu = new Menu "$menufile";
my $menu = Menu->new($::menufile);
$form->{title} = $locale->text('Accounting Menu');
bin/mozilla/menuXML.pl
# 2007-10-14 - XMLified - Holger Will <holger@treebuilder.de>
#######################################################################
my $menufile = "menu.ini";
use SL::Menu;
use CGI::Carp qw(fatalsToBrowser);
......
my $mainlevel = $form->{level};
$mainlevel =~ s/$mainlevel--//g;
my $menu = new Menu "$menufile";
my $menu = Menu->new($::menufile);
$| = 1;
bin/mozilla/menujs.pl
# 2004-12-14 - Holger Lindemann
#######################################################################
my $menufile = "menu.ini";
use SL::Menu;
use CGI::Carp qw(fatalsToBrowser);
......
my $mainlevel = $form->{level};
$mainlevel =~ s/$mainlevel--//g;
my $menu = new Menu "$menufile";
my $menu = Menu->new($::menufile);
$| = 1;
bin/mozilla/menuv3.pl
use strict;
my $menufile = "menu.ini";
1;
# end of main
......
my $mainlevel = $form->{level};
$mainlevel =~ s/\Q$mainlevel\E--//g;
my $menu = new Menu "$menufile";
my $menu = Menu->new($::menufile);
$| = 1;
bin/mozilla/menuv4.pl
use strict;
my $menufile = "menu.ini";
1;
# end of main
......
my $mainlevel = $form->{level};
$mainlevel =~ s/\Q$mainlevel\E--//g;
my $menu = new Menu "$menufile";
my $menu = Menu->new($::menufile);
$| = 1;
bin/mozilla/oe.pl
use strict;
my $print_post;
our %TMPL_VAR;
1;
......
$form->{print_and_save} = 1;
$print_post = 1;
my $saved_form = save_form();
save();

Auch abrufbar als: Unified diff