Revision bce93dd4
Von Sven Schöling vor mehr als 3 Jahren hinzugefügt
| bin/mozilla/rp.pl | ||
|---|---|---|
| 44 | 44 |
use SL::RP; |
| 45 | 45 |
use SL::Iconv; |
| 46 | 46 |
use SL::Locale::String qw(t8); |
| 47 |
use SL::Presenter::Tag; |
|
| 47 |
use SL::Presenter::Tag qw(hidden_tag);
|
|
| 48 | 48 |
use SL::ReportGenerator; |
| 49 | 49 |
use Data::Dumper; |
| 50 | 50 |
use List::MoreUtils qw(any); |
| ... | ... | |
| 1002 | 1002 |
my $form = $main::form; |
| 1003 | 1003 |
my %myconfig = %main::myconfig; |
| 1004 | 1004 |
my $locale = $main::locale; |
| 1005 |
my $cgi = $::request->{cgi};
|
|
| 1006 | 1005 |
|
| 1007 | 1006 |
my $report = SL::ReportGenerator->new(\%myconfig, $form); |
| 1008 | 1007 |
|
| ... | ... | |
| 1095 | 1094 |
|
| 1096 | 1095 |
if ($previous_ctid != $ref->{ctid}) {
|
| 1097 | 1096 |
$row->{statement}->{raw_data} =
|
| 1098 |
$cgi->hidden('-name' => "customer_id_" . ($row_idx + 1), '-value' => $ref->{ctid})
|
|
| 1099 |
. $cgi->checkbox('-name' => "statement_" . ($row_idx + 1), '-value' => 1, '-label' => '', 'checked' => $ref->{checked});
|
|
| 1097 |
hidden_tag("customer_id_" . ($row_idx + 1), $ref->{ctid}) .
|
|
| 1098 |
checkbox_tag("statement_" . ($row_idx + 1), checked => $ref->{checked}, value => 1, label => '');
|
|
| 1100 | 1099 |
$row->{ct}->{data} = $ref->{name};
|
| 1101 | 1100 |
|
| 1102 | 1101 |
$row_idx++; |
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->...