Revision 5494f687
Von Sven Schöling vor etwa 13 Jahren hinzugefügt
| bin/mozilla/gl.pl | ||
|---|---|---|
| 218 | 218 |
my $form = $main::form; |
| 219 | 219 |
my %myconfig = %main::myconfig; |
| 220 | 220 |
my $locale = $main::locale; |
| 221 |
my $cgi = $main::cgi;
|
|
| 221 |
my $cgi = $::request->{cgi};
|
|
| 222 | 222 |
|
| 223 | 223 |
$form->{title} = $locale->text('Journal');
|
| 224 | 224 |
|
| ... | ... | |
| 507 | 507 |
|
| 508 | 508 |
my @columns = qw( |
| 509 | 509 |
gldate transdate id reference description |
| 510 |
notes source debit debit_accno
|
|
| 510 |
notes source debit debit_accno |
|
| 511 | 511 |
credit credit_accno debit_tax debit_tax_accno |
| 512 | 512 |
credit_tax credit_tax_accno projectnumbers balance employee |
| 513 | 513 |
); |
| ... | ... | |
| 861 | 861 |
|
| 862 | 862 |
my $form = $main::form; |
| 863 | 863 |
my %myconfig = %main::myconfig; |
| 864 |
my $cgi = $main::cgi;
|
|
| 864 |
my $cgi = $::request->{cgi};
|
|
| 865 | 865 |
|
| 866 | 866 |
$form->{debit_1} = 0 if !$form->{"debit_1"};
|
| 867 | 867 |
$form->{totaldebit} = 0;
|
| ... | ... | |
| 1347 | 1347 |
my $form = $main::form; |
| 1348 | 1348 |
my %myconfig = %main::myconfig; |
| 1349 | 1349 |
my $locale = $main::locale; |
| 1350 |
my $cgi = $main::cgi;
|
|
| 1350 |
my $cgi = $::request->{cgi};
|
|
| 1351 | 1351 |
|
| 1352 | 1352 |
my $follow_ups_block; |
| 1353 | 1353 |
if ($form->{id}) {
|
Auch abrufbar als: Unified diff
$::cgi entfernt.
Verfahren:
- Für alle Vorkommen von "my $cgi = $::cgi;":
ersetzt durch my $cgi = $::request->{cgi}->new({}) ersetzt
- Wenn in einer Datei alle my $cgi rausgefallen sind auch use CGI entfernt.
- Initialisierung von $::cgi in scripts und Dispatcher entfernt und in dei
Initialisierung von $::request eingebaut.
- cgi aus der Liste der kanonischen globals genommen.
Zu CGI:
- CGI::func und CGI->func sind beides valide Werte, sind aber intern buggy wie
Hölle. CGI:: erzeugt ein Dummyobjekt mit CGI->new, und klobbert damit
cookies. CGI-> ist noch schlimmer und ruft ${CGI}->{.cookies} auf.
- CGI->new({}) ist schneller als CGI->new(''), deshalb habe ich diese version genommen.
Auf meinem Rechner schafft die erste Version etwa 32k/s, die zweite 28k/s.
- CGI kompiliert benötigte Funktionen beim ersten Aufruf über AUTOLOAD.
- cookie benötigen ein $cgi Objekt.