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