|
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 319-326
if ( $compareinv2barcd ) {
Link Here
|
| 319 |
for my $should_be_scanned ( @$inventorylist ) { |
320 |
for my $should_be_scanned ( @$inventorylist ) { |
| 320 |
my $barcode = $should_be_scanned->{barcode}; |
321 |
my $barcode = $should_be_scanned->{barcode}; |
| 321 |
unless ( grep /^$barcode$/, @scanned_barcodes ) { |
322 |
unless ( grep /^$barcode$/, @scanned_barcodes ) { |
| 322 |
$should_be_scanned->{problem} = 'not_scanned'; |
323 |
unless ( any { $should_be_scanned->{'location-code'} eq $_ } @ignore_locations ) { |
| 323 |
push @items_with_problems, { %$should_be_scanned }; |
324 |
$should_be_scanned->{problem} = 'not_scanned'; |
|
|
325 |
push @items_with_problems, { %$should_be_scanned }; |
| 326 |
} |
| 324 |
} |
327 |
} |
| 325 |
} |
328 |
} |
| 326 |
} |
329 |
} |
| 327 |
- |
|
|