|
Lines 53-60
my @item_numbers;
Link Here
|
| 53 |
my $output_format = $cgi->param('output_format') || 'pdf'; |
53 |
my $output_format = $cgi->param('output_format') || 'pdf'; |
| 54 |
my $referer = $cgi->param('referer') || undef; |
54 |
my $referer = $cgi->param('referer') || undef; |
| 55 |
|
55 |
|
| 56 |
my $from = $cgi->param('from') || undef; |
56 |
my $txt_from = $cgi->param('from') || undef; |
| 57 |
my $to = $cgi->param('to') || undef; |
57 |
my $txt_to = $cgi->param('to') || undef; |
|
|
58 |
my $from = int($txt_from) || undef; |
| 59 |
my $to = int($txt_to) || undef; |
| 60 |
my $range = length($txt_from) || undef; |
| 58 |
|
61 |
|
| 59 |
my $layouts = undef; |
62 |
my $layouts = undef; |
| 60 |
my $templates = undef; |
63 |
my $templates = undef; |
|
Lines 75-80
if ($op eq 'export') {
Link Here
|
| 75 |
start_label => $start_label, |
78 |
start_label => $start_label, |
| 76 |
label_ids => $label_id_param, |
79 |
label_ids => $label_id_param, |
| 77 |
label_count => scalar(@label_ids), |
80 |
label_count => scalar(@label_ids), |
|
|
81 |
range => $range |
| 78 |
}); |
82 |
}); |
| 79 |
$template->param( |
83 |
$template->param( |
| 80 |
batches => \@batches, |
84 |
batches => \@batches, |
|
Lines 85-95
if ($op eq 'export') {
Link Here
|
| 85 |
my $item_number_param = '&item_number='; |
89 |
my $item_number_param = '&item_number='; |
| 86 |
$item_number_param .= join ('&item_number=',@item_numbers); |
90 |
$item_number_param .= join ('&item_number=',@item_numbers); |
| 87 |
push (@batches, {create_script => ($output_format eq 'pdf' ? 'label-create-pdf.pl' : 'label-create-csv.pl'), |
91 |
push (@batches, {create_script => ($output_format eq 'pdf' ? 'label-create-pdf.pl' : 'label-create-csv.pl'), |
| 88 |
template_id => $template_id, |
92 |
template_id => $template_id, |
| 89 |
layout_id => $layout_id, |
93 |
layout_id => $layout_id, |
| 90 |
start_label => $start_label, |
94 |
start_label => $start_label, |
| 91 |
item_numbers => $item_number_param, |
95 |
item_numbers => $item_number_param, |
| 92 |
label_count => scalar(@item_numbers), |
96 |
label_count => scalar(@item_numbers), |
|
|
97 |
range => $range |
| 93 |
}); |
98 |
}); |
| 94 |
$template->param( |
99 |
$template->param( |
| 95 |
batches => \@batches, |
100 |
batches => \@batches, |
|
Lines 103-108
if ($op eq 'export') {
Link Here
|
| 103 |
template_id => $template_id, |
108 |
template_id => $template_id, |
| 104 |
layout_id => $layout_id, |
109 |
layout_id => $layout_id, |
| 105 |
start_label => $start_label, |
110 |
start_label => $start_label, |
|
|
111 |
range => $range |
| 106 |
}); |
112 |
}); |
| 107 |
} |
113 |
} |
| 108 |
$template->param( |
114 |
$template->param( |
|
Lines 129-134
if ($op eq 'export') {
Link Here
|
| 129 |
template_id => $template_id, |
135 |
template_id => $template_id, |
| 130 |
layout_id => $layout_id, |
136 |
layout_id => $layout_id, |
| 131 |
start_label => $start_label, |
137 |
start_label => $start_label, |
|
|
138 |
range => $range |
| 132 |
}); |
139 |
}); |
| 133 |
$template->param( |
140 |
$template->param( |
| 134 |
batches => \@batches, |
141 |
batches => \@batches, |
|
Lines 157-162
elsif ($op eq 'none') {
Link Here
|
| 157 |
label_count => $label_count, |
164 |
label_count => $label_count, |
| 158 |
item_count => $item_count, |
165 |
item_count => $item_count, |
| 159 |
referer => $referer, |
166 |
referer => $referer, |
|
|
167 |
range => $range, |
| 168 |
txt_from => $txt_from, |
| 169 |
txt_to => $txt_to, |
| 160 |
from => $from, |
170 |
from => $from, |
| 161 |
to => $to |
171 |
to => $to |
| 162 |
); |
172 |
); |
| 163 |
- |
|
|