Revision bce93dd4
Von Sven Schöling vor mehr als 3 Jahren hinzugefügt
| bin/mozilla/fu.pl | ||
|---|---|---|
| 3 | 3 |
use SL::FU; |
| 4 | 4 |
use SL::Locale::String qw(t8); |
| 5 | 5 |
use SL::ReportGenerator; |
| 6 |
use SL::Presenter::Tag qw(hidden_tag checkbox_tag); |
|
| 6 | 7 |
|
| 7 | 8 |
require "bin/mozilla/reportgenerator.pl"; |
| 8 | 9 |
|
| ... | ... | |
| 250 | 251 |
my $form = $main::form; |
| 251 | 252 |
my %myconfig = %main::myconfig; |
| 252 | 253 |
my $locale = $main::locale; |
| 253 |
my $cgi = $::request->{cgi};
|
|
| 254 | 254 |
|
| 255 | 255 |
my @report_params = qw(created_for subject body reference follow_up_date_from follow_up_date_to itime_from itime_to due_only all_users done not_done); |
| 256 | 256 |
|
| ... | ... | |
| 333 | 333 |
my $row = { map { $_ => { 'data' => $fu->{$_} } } keys %{ $fu } };
|
| 334 | 334 |
|
| 335 | 335 |
$row->{selected} = {
|
| 336 |
'raw_data' => $cgi->hidden('-name' => "follow_up_id_${idx}", '-value' => $fu->{id})
|
|
| 337 |
. $cgi->checkbox('-name' => "selected_${idx}", '-value' => 1, '-label' => ''),
|
|
| 336 |
'raw_data' => hidden_tag("follow_up_id_${idx}", $fu->{id})
|
|
| 337 |
. checkbox_tag("selected_${idx}", value => 1),
|
|
| 338 | 338 |
'valign' => 'center', |
| 339 | 339 |
'align' => 'center', |
| 340 | 340 |
}; |
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->...