Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 1bb4746a

Von Sven Schöling vor etwa 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
70 70
    $::userspath  = "users";
71 71
    $::templates  = "templates";
72 72
    $::memberfile = "users/members";
73
    $::menufile   = "menu.ini";
73 74
    $::sendmail   = "| /usr/sbin/sendmail -t";
74 75
    $::lxdebug    = LXDebug->new;
75 76
    $::auth       = SL::Auth->new;
bin/mozilla/do.pl
48 48

  
49 49
use strict;
50 50

  
51
my $print_post;
52

  
53 51
1;
54 52

  
55 53
# end of main
......
905 903

  
906 904
  $form->{print_and_save} = 1;
907 905

  
908
  $print_post = 1;
909

  
910 906
  my $saved_form = save_form();
911 907

  
912 908
  save();
bin/mozilla/menu.pl
84 84

  
85 85
  $mainlevel = $form->{level};
86 86
  $mainlevel =~ s/\Q$mainlevel\E--//g;
87
  my $menu = new Menu "$menufile";
87
  my $menu = Menu->new($::menufile);
88 88

  
89 89
  $form->{title} = $locale->text('Accounting Menu');
90 90

  
bin/mozilla/menuXML.pl
36 36
#  2007-10-14 - XMLified  - Holger Will  <holger@treebuilder.de>
37 37
#######################################################################
38 38

  
39
my $menufile = "menu.ini";
40 39
use SL::Menu;
41 40

  
42 41
use CGI::Carp qw(fatalsToBrowser);
......
98 97

  
99 98
  my $mainlevel = $form->{level};
100 99
  $mainlevel =~ s/$mainlevel--//g;
101
  my $menu = new Menu "$menufile";
100
  my $menu = Menu->new($::menufile);
102 101

  
103 102
  $| = 1;
104 103

  
bin/mozilla/menujs.pl
35 35
#  2004-12-14 - Holger Lindemann
36 36
#######################################################################
37 37

  
38
my $menufile = "menu.ini";
39 38
use SL::Menu;
40 39
use CGI::Carp qw(fatalsToBrowser);
41 40

  
......
136 135

  
137 136
  my $mainlevel = $form->{level};
138 137
  $mainlevel =~ s/$mainlevel--//g;
139
  my $menu = new Menu "$menufile";
138
  my $menu = Menu->new($::menufile);
140 139

  
141 140
  $| = 1;
142 141

  
bin/mozilla/menuv3.pl
37 37

  
38 38
use strict;
39 39

  
40
my $menufile = "menu.ini";
41

  
42 40
1;
43 41

  
44 42
# end of main
......
87 85

  
88 86
  my $mainlevel = $form->{level};
89 87
  $mainlevel =~ s/\Q$mainlevel\E--//g;
90
  my $menu = new Menu "$menufile";
88
  my $menu = Menu->new($::menufile);
91 89

  
92 90
  $| = 1;
93 91

  
bin/mozilla/menuv4.pl
37 37

  
38 38
use strict;
39 39

  
40
my $menufile = "menu.ini";
41

  
42 40
1;
43 41

  
44 42
# end of main
......
89 87

  
90 88
  my $mainlevel = $form->{level};
91 89
  $mainlevel =~ s/\Q$mainlevel\E--//g;
92
  my $menu = new Menu "$menufile";
90
  my $menu = Menu->new($::menufile);
93 91

  
94 92
  $| = 1;
95 93

  
bin/mozilla/oe.pl
50 50

  
51 51
use strict;
52 52

  
53
my $print_post;
54 53
our %TMPL_VAR;
55 54

  
56 55
1;
......
1858 1857

  
1859 1858
  $form->{print_and_save} = 1;
1860 1859

  
1861
  $print_post = 1;
1862

  
1863 1860
  my $saved_form = save_form();
1864 1861

  
1865 1862
  save();

Auch abrufbar als: Unified diff