Revision 5494f687
Von Sven Schöling vor etwa 13 Jahren hinzugefügt
bin/mozilla/vk.pl | ||
---|---|---|
54 | 54 |
my $form = $main::form; |
55 | 55 |
my %myconfig = %main::myconfig; |
56 | 56 |
my $locale = $main::locale; |
57 |
my $cgi = $main::cgi; |
|
58 | 57 |
|
59 | 58 |
my ($customer, $department); |
60 | 59 |
|
... | ... | |
100 | 99 |
# Nichts führt, daher diese Zwischenlösung |
101 | 100 |
|
102 | 101 |
&check_name('customer', no_select => 1); |
103 |
|
|
102 |
|
|
104 | 103 |
# $form->{customer_id} wurde schon von check_name gesetzt |
105 | 104 |
$form->{customername} = $form->{customer}; |
106 | 105 |
}; |
... | ... | |
312 | 311 |
|
313 | 312 |
if ( $subtotals2{qty} != 0 ) { |
314 | 313 |
$subtotals2{sellprice} = $subtotals2{sellprice_total} / $subtotals2{qty}; |
315 |
$subtotals2{lastcost} = $subtotals2{lastcost_total} / $subtotals2{qty};
|
|
314 |
$subtotals2{lastcost} = $subtotals2{lastcost_total} / $subtotals2{qty}; |
|
316 | 315 |
} else { |
317 | 316 |
$subtotals2{sellprice} = 0; |
318 | 317 |
$subtotals2{lastcost} = 0; |
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.