View | Details | Raw Unified | Return to bug 12631
Collapse All | Expand All

(-)a/tools/inventory.pl (-3 / +10 lines)
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
- 

Return to bug 12631