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