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

(-)a/tools/inventory.pl (-7 / +4 lines)
Lines 46-52 $maxlocation=$minlocation.'Z' unless ( $maxlocation || ! $minlocation ); Link Here
46
my $location=$input->param('location') || '';
46
my $location=$input->param('location') || '';
47
my $itemtype=$input->param('itemtype'); # FIXME note, template does not currently supply this
47
my $itemtype=$input->param('itemtype'); # FIXME note, template does not currently supply this
48
my $ignoreissued=$input->param('ignoreissued');
48
my $ignoreissued=$input->param('ignoreissued');
49
my $datelastseen = $input->param('datelastseen');
49
my $datelastseen = $input->param('datelastseen') || $input->param('setdate');
50
my $markseen = $input->param('markseen');
50
my $markseen = $input->param('markseen');
51
my $branchcode = $input->param('branchcode') || '';
51
my $branchcode = $input->param('branchcode') || '';
52
my $branch     = $input->param('branch');
52
my $branch     = $input->param('branch');
Lines 277-286 if ( $markseen or $op ) { Link Here
277
}
277
}
278
278
279
# If "compare barcodes list to results" has been checked, we want to alert for missing items
279
# If "compare barcodes list to results" has been checked, we want to alert for missing items
280
my $dls = output_pref( { dt => dt_from_string( $datelastseen ), dateformat => 'iso' } );
280
if ( $compareinv2barcd ) {
281
if ( $compareinv2barcd ) {
281
    # set "missing" flags for all items with a datelastseen (dls) before the chosen datelastseen (cdls)
282
    # set "missing" flags for all items with a datelastseen (dls) before the chosen datelastseen (cdls)
282
    my $dls = output_pref( { dt => dt_from_string( $datelastseen ),
283
                             dateformat => 'iso' } );
284
    foreach my $item ( @$inventorylist ) {
283
    foreach my $item ( @$inventorylist ) {
285
        my $cdls = output_pref( { dt => dt_from_string( $item->{datelastseen} ),
284
        my $cdls = output_pref( { dt => dt_from_string( $item->{datelastseen} ),
286
                                  dateformat => 'iso' } );
285
                                  dateformat => 'iso' } );
Lines 298-304 if ( $compareinv2barcd ) { Link Here
298
# note this list is always displayed, whatever the librarian has chosen for comparison
297
# note this list is always displayed, whatever the librarian has chosen for comparison
299
my $moddatecount = 0;
298
my $moddatecount = 0;
300
foreach my $item ( @scanned_items ) {
299
foreach my $item ( @scanned_items ) {
301
302
  # Saving notforloan code before it's replaced by it's authorised value for later comparison
300
  # Saving notforloan code before it's replaced by it's authorised value for later comparison
303
  $item->{notforloancode} = $item->{notforloan};
301
  $item->{notforloancode} = $item->{notforloan};
304
302
Lines 323-335 foreach my $item ( @scanned_items ) { Link Here
323
        $item->{problem} = 'changestatus';
321
        $item->{problem} = 'changestatus';
324
        push @items_with_problems, { %$item };
322
        push @items_with_problems, { %$item };
325
    }
323
    }
326
    if (none { $item->{barcode} eq $_->{barcode} && !$_->{'onloan'} } @$wrongplacelist) {
324
    if (none { $_->{barcode} && $item->{barcode} eq $_->{barcode} && !$_->{'onloan'} } @$wrongplacelist) {
327
        $item->{problem} = 'wrongplace';
325
        $item->{problem} = 'wrongplace';
328
        push @items_with_problems, { %$item };
326
        push @items_with_problems, { %$item };
329
    }
327
    }
330
328
331
    # Modify date last seen for scanned items
329
    # Modify date last seen for scanned items
332
    ModDateLastSeen($item->{'itemnumber'});
330
    ModItem({ itemlost => 0, datelastseen => $dls }, undef, $item->{'itemnumber'});
333
    $moddatecount++;
331
    $moddatecount++;
334
}
332
}
335
333
336
- 

Return to bug 16834