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