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 285-292
if ( $compareinv2barcd ) {
Link Here
|
285 |
for my $should_be_scanned ( @$inventorylist ) { |
286 |
for my $should_be_scanned ( @$inventorylist ) { |
286 |
my $barcode = $should_be_scanned->{barcode}; |
287 |
my $barcode = $should_be_scanned->{barcode}; |
287 |
unless ( grep /^$barcode$/, @scanned_barcodes ) { |
288 |
unless ( grep /^$barcode$/, @scanned_barcodes ) { |
288 |
$should_be_scanned->{problem} = 'not_scanned'; |
289 |
unless ( any { $should_be_scanned->{'location-code'} eq $_ } @ignore_locations ) { |
289 |
push @items_with_problems, { %$should_be_scanned }; |
290 |
$should_be_scanned->{problem} = 'not_scanned'; |
|
|
291 |
push @items_with_problems, { %$should_be_scanned }; |
292 |
} |
290 |
} |
293 |
} |
291 |
} |
294 |
} |
292 |
} |
295 |
} |
293 |
- |
|
|