Lines 226-236
if ( $uploadbarcodes && length($uploadbarcodes) > 0 ) {
Link Here
|
226 |
|
226 |
|
227 |
# now build the result list: inventoried items if requested, and mis-placed items -always- |
227 |
# now build the result list: inventoried items if requested, and mis-placed items -always- |
228 |
my $inventorylist; |
228 |
my $inventorylist; |
|
|
229 |
my $wrongplacelist; |
229 |
my @items_with_problems; |
230 |
my @items_with_problems; |
230 |
if ( $markseen or $op ) { |
231 |
if ( $markseen or $op ) { |
231 |
# retrieve all items in this range. |
232 |
# retrieve all items in this range. |
232 |
my $totalrecords; |
233 |
my $totalrecords; |
233 |
($inventorylist, $totalrecords) = GetItemsForInventory($minlocation, $maxlocation, $location, $itemtype, $ignoreissued, '', $branchcode, $branch, 0, undef , $staton); |
234 |
|
|
|
235 |
# We use datelastseen only when comparing the results to the barcode file. |
236 |
my $paramdatelastseen = ($compareinv2barcd) ? $datelastseen : ''; |
237 |
($inventorylist, $totalrecords) = GetItemsForInventory($minlocation, $maxlocation, $location, $itemtype, $ignoreissued, $paramdatelastseen, $branchcode, $branch, 0, undef, $staton); |
238 |
|
239 |
# For the items that may be marked as "wrong place", we only check the location (callnumbers, location and branch) |
240 |
($wrongplacelist, $totalrecords) = GetItemsForInventory($minlocation, $maxlocation, $location, undef, undef, undef, $branchcode, $branch, 0, undef, undef); |
241 |
|
234 |
} |
242 |
} |
235 |
|
243 |
|
236 |
# If "compare barcodes list to results" has been checked, we want to alert for missing items |
244 |
# If "compare barcodes list to results" has been checked, we want to alert for missing items |
Lines 280-286
foreach my $item ( @scanned_items ) {
Link Here
|
280 |
$item->{problem} = 'changestatus'; |
288 |
$item->{problem} = 'changestatus'; |
281 |
push @items_with_problems, { %$item }; |
289 |
push @items_with_problems, { %$item }; |
282 |
} |
290 |
} |
283 |
if (none { $item->{barcode} eq $_->{barcode} && !$_->{'onloan'} } @$inventorylist) { |
291 |
if (none { $item->{barcode} eq $_->{barcode} && !$_->{'onloan'} } @$wrongplacelist) { |
284 |
$item->{problem} = 'wrongplace'; |
292 |
$item->{problem} = 'wrongplace'; |
285 |
push @items_with_problems, { %$item }; |
293 |
push @items_with_problems, { %$item }; |
286 |
} |
294 |
} |
287 |
- |
|
|