Lines 39-50
my $input = new CGI;
Link Here
|
39 |
my $dbh = C4::Context->dbh; |
39 |
my $dbh = C4::Context->dbh; |
40 |
my $error = $input->param('error'); |
40 |
my $error = $input->param('error'); |
41 |
my @itemnumbers = $input->param('itemnumber'); |
41 |
my @itemnumbers = $input->param('itemnumber'); |
|
|
42 |
my $biblionumber = $input->param('biblionumber'); |
42 |
my $op = $input->param('op'); |
43 |
my $op = $input->param('op'); |
43 |
my $del = $input->param('del'); |
44 |
my $del = $input->param('del'); |
44 |
my $del_records = $input->param('del_records'); |
45 |
my $del_records = $input->param('del_records'); |
45 |
my $completedJobID = $input->param('completedJobID'); |
46 |
my $completedJobID = $input->param('completedJobID'); |
46 |
my $runinbackground = $input->param('runinbackground'); |
47 |
my $runinbackground = $input->param('runinbackground'); |
47 |
|
48 |
my $src = $input->param('src'); |
48 |
|
49 |
|
49 |
my $template_name; |
50 |
my $template_name; |
50 |
my $template_flag; |
51 |
my $template_flag; |
Lines 229-237
if ($op eq "show"){
Link Here
|
229 |
@itemnumbers = @contentlist; |
230 |
@itemnumbers = @contentlist; |
230 |
} |
231 |
} |
231 |
} else { |
232 |
} else { |
232 |
if ( my $list=$input->param('barcodelist')){ |
233 |
my @items; |
233 |
push my @barcodelist, split(/\s\n/, $list); |
234 |
my @barcodelist; |
234 |
|
235 |
if (defined $biblionumber){ |
|
|
236 |
my @all_items = GetItemsInfo( $biblionumber ); |
237 |
foreach my $itm (@all_items) { |
238 |
push @items, $itm->{barcode}; |
239 |
} |
240 |
@barcodelist=@items; |
241 |
} else { |
242 |
if ( my $list=$input->param('barcodelist')){ |
243 |
push @barcodelist, split(/\s\n/, $list); |
244 |
} |
245 |
} |
235 |
foreach my $barcode (@barcodelist) { |
246 |
foreach my $barcode (@barcodelist) { |
236 |
|
247 |
|
237 |
my $itemnumber = GetItemnumberFromBarcode($barcode); |
248 |
my $itemnumber = GetItemnumberFromBarcode($barcode); |
Lines 241-248
if ($op eq "show"){
Link Here
|
241 |
push @notfoundbarcodes, $barcode; |
252 |
push @notfoundbarcodes, $barcode; |
242 |
} |
253 |
} |
243 |
} |
254 |
} |
244 |
|
|
|
245 |
} |
246 |
} |
255 |
} |
247 |
|
256 |
|
248 |
# Flag to tell the template there are valid results, hidden or not |
257 |
# Flag to tell the template there are valid results, hidden or not |
Lines 453-458
if ($op eq "action") {
Link Here
|
453 |
foreach my $error (@errors) { |
462 |
foreach my $error (@errors) { |
454 |
$template->param($error => 1); |
463 |
$template->param($error => 1); |
455 |
} |
464 |
} |
|
|
465 |
$template->param(src => $src); |
456 |
output_html_with_http_headers $input, $cookie, $template->output; |
466 |
output_html_with_http_headers $input, $cookie, $template->output; |
457 |
exit; |
467 |
exit; |
458 |
|
468 |
|
459 |
- |
|
|