Revision bce93dd4
Von Sven Schöling vor mehr als 3 Jahren hinzugefügt
| bin/mozilla/do.pl | ||
|---|---|---|
| 44 | 44 |
use SL::ReportGenerator; |
| 45 | 45 |
use SL::WH; |
| 46 | 46 |
use SL::YAML; |
| 47 |
use SL::Presenter::Tag qw(hidden_tag checkbox_tag); |
|
| 47 | 48 |
use Sort::Naturally (); |
| 48 | 49 |
require "bin/mozilla/common.pl"; |
| 49 | 50 |
require "bin/mozilla/io.pl"; |
| ... | ... | |
| 678 | 679 |
my $form = $main::form; |
| 679 | 680 |
my %myconfig = %main::myconfig; |
| 680 | 681 |
my $locale = $main::locale; |
| 681 |
my $cgi = $::request->{cgi};
|
|
| 682 | 682 |
|
| 683 | 683 |
$::request->{layout}->use_javascript(map { "${_}.js" } qw(kivi.MassDeliveryOrderPrint kivi.SalesPurchase));
|
| 684 | 684 |
($form->{ $form->{vc} }, $form->{"$form->{vc}_id"}) = split(/--/, $form->{ $form->{vc} });
|
| ... | ... | |
| 862 | 862 |
|
| 863 | 863 |
my $ord_id = $dord->{id};
|
| 864 | 864 |
$row->{ids} = {
|
| 865 |
'raw_data' => $cgi->hidden('-name' => "trans_id_${idx}", '-value' => $ord_id)
|
|
| 866 |
. $cgi->checkbox('-name' => "multi_id_${idx}",' id' => "multi_id_id_".$ord_id, '-value' => 1, 'data-checkall' => 1, '-label' => ''),
|
|
| 865 |
'raw_data' => hidden_tag("trans_id_${idx}", $ord_id)
|
|
| 866 |
. checkbox_tag("multi_id_${idx}", value => 1, id => "multi_id_id_".$ord_id, 'data-checkall' => 1),
|
|
| 867 | 867 |
'valign' => 'center', |
| 868 | 868 |
'align' => 'center', |
| 869 | 869 |
}; |
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->...