|
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 |
- |
|
|