Revision 5494f687
Von Sven Schöling vor etwa 13 Jahren hinzugefügt
| bin/mozilla/is.pl | ||
|---|---|---|
| 285 | 285 |
my $form = $main::form; |
| 286 | 286 |
my %myconfig = %main::myconfig; |
| 287 | 287 |
my $locale = $main::locale; |
| 288 |
my $cgi = $main::cgi;
|
|
| 288 |
my $cgi = $::request->{cgi};
|
|
| 289 | 289 |
|
| 290 | 290 |
$main::auth->assert('invoice_edit');
|
| 291 | 291 |
|
| ... | ... | |
| 335 | 335 |
my %labels = map { $_ => $_ } @{ $form->{ALL_CURRENCIES} };
|
| 336 | 336 |
$form->{currency} = $form->{defaultcurrency} unless $form->{currency};
|
| 337 | 337 |
$form->{show_exchangerate} = $form->{currency} ne $form->{defaultcurrency};
|
| 338 |
$TMPL_VAR{currencies} = NTI($::cgi->popup_menu('-name' => 'currency', '-default' => $form->{"currency"},
|
|
| 338 |
$TMPL_VAR{currencies} = NTI($::request->{cgi}->popup_menu('-name' => 'currency', '-default' => $form->{"currency"},
|
|
| 339 | 339 |
'-values' => \@values, '-labels' => \%labels)) if scalar @values; |
| 340 | 340 |
push @custom_hiddens, "forex"; |
| 341 | 341 |
push @custom_hiddens, "exchangerate" if $form->{forex};
|
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.