Lines 37-43
use C4::Circulation;
Link Here
|
37 |
use C4::Reports::Guided; #_get_column_defs |
37 |
use C4::Reports::Guided; #_get_column_defs |
38 |
use C4::Charset; |
38 |
use C4::Charset; |
39 |
use Koha::DateUtils; |
39 |
use Koha::DateUtils; |
40 |
use List::MoreUtils qw( none ); |
40 |
use List::MoreUtils qw( none any ); |
41 |
|
41 |
|
42 |
|
42 |
|
43 |
my $minlocation=$input->param('minlocation') || ''; |
43 |
my $minlocation=$input->param('minlocation') || ''; |
Lines 54-59
my $branch = $input->param('branch');
Link Here
|
54 |
my $op = $input->param('op'); |
54 |
my $op = $input->param('op'); |
55 |
my $compareinv2barcd = $input->param('compareinv2barcd'); |
55 |
my $compareinv2barcd = $input->param('compareinv2barcd'); |
56 |
my $out_of_order = $input->param('out_of_order'); |
56 |
my $out_of_order = $input->param('out_of_order'); |
|
|
57 |
my @ignore_locations = $input->param('ignore_locations'); |
57 |
|
58 |
|
58 |
my ( $template, $borrowernumber, $cookie ) = get_template_and_user( |
59 |
my ( $template, $borrowernumber, $cookie ) = get_template_and_user( |
59 |
{ template_name => "tools/inventory.tt", |
60 |
{ template_name => "tools/inventory.tt", |
Lines 364-371
if ( $compareinv2barcd ) {
Link Here
|
364 |
for my $should_be_scanned ( @$inventorylist ) { |
365 |
for my $should_be_scanned ( @$inventorylist ) { |
365 |
my $barcode = $should_be_scanned->{barcode}; |
366 |
my $barcode = $should_be_scanned->{barcode}; |
366 |
unless ( grep /^$barcode$/, @scanned_barcodes ) { |
367 |
unless ( grep /^$barcode$/, @scanned_barcodes ) { |
367 |
$should_be_scanned->{problem} = 'not_scanned'; |
368 |
unless ( any { $should_be_scanned->{'location-code'} eq $_ } @ignore_locations ) { |
368 |
push @items_with_problems, { %$should_be_scanned }; |
369 |
$should_be_scanned->{problem} = 'not_scanned'; |
|
|
370 |
push @items_with_problems, { %$should_be_scanned }; |
371 |
} |
369 |
} |
372 |
} |
370 |
} |
373 |
} |
371 |
} |
374 |
} |
372 |
- |
|
|