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