Revision bce93dd4
Von Sven Schöling vor mehr als 3 Jahren hinzugefügt
| bin/mozilla/dn.pl | ||
|---|---|---|
| 38 | 38 |
use SL::DN; |
| 39 | 39 |
use SL::DB::Department; |
| 40 | 40 |
use SL::DB::Dunning; |
| 41 |
use SL::Presenter::Tag qw(hidden_tag checkbox_tag); |
|
| 41 | 42 |
use SL::Helper::Flash qw(flash); |
| 42 | 43 |
use SL::Locale::String qw(t8); |
| 43 | 44 |
use SL::ReportGenerator; |
| ... | ... | |
| 331 | 332 |
my $form = $main::form; |
| 332 | 333 |
my %myconfig = %main::myconfig; |
| 333 | 334 |
my $locale = $main::locale; |
| 334 |
my $cgi = $::request->{cgi};
|
|
| 335 | 335 |
|
| 336 | 336 |
$main::auth->assert('dunning_edit');
|
| 337 | 337 |
|
| ... | ... | |
| 431 | 431 |
} |
| 432 | 432 |
|
| 433 | 433 |
$row->{checkbox} = !$first_row_for_dunning ? { } : {
|
| 434 |
'raw_data' => $cgi->hidden('-name' => "dunning_id_$i", '-value' => $ref->{dunning_id})
|
|
| 435 |
. $cgi->checkbox('-name' => "selected_$i", '-value' => 1, '-label' => ''),
|
|
| 434 |
'raw_data' => hidden_tag("dunning_id_$i", $ref->{dunning_id})
|
|
| 435 |
. checkbox_tag("selected_$i", value => 1),
|
|
| 436 | 436 |
'valign' => 'center', |
| 437 | 437 |
'align' => 'center', |
| 438 | 438 |
}; |
| 439 | 439 |
|
| 440 | 440 |
if ($first_row_for_dunning) {
|
| 441 |
$row->{language} = {'raw_data' => $cgi->hidden('-name' => "language_id_$i", '-value' => $ref->{language_id})
|
|
| 442 |
. " $ref->{language}" };
|
|
| 441 |
$row->{language} = {'raw_data' => hidden_tag("language_id_$i", $ref->{language_id}) . " $ref->{language}" };
|
|
| 443 | 442 |
} else {
|
| 444 | 443 |
$row->{language} = { };
|
| 445 | 444 |
} |
Auch abrufbar als: Unified diff
CGI.pm nicht mehr als html Generator verwenden
Die restlichen Vorkommen sind jetzt noch
- header
- redirect
- cookie
und sind alle der Form: $::request->cgi->...