|
Lines 257-280
if ( $markseen or $op ) {
Link Here
|
| 257 |
|
257 |
|
| 258 |
} |
258 |
} |
| 259 |
|
259 |
|
| 260 |
# If "compare barcodes list to results" has been checked, we want to alert for missing items |
|
|
| 261 |
if ( $compareinv2barcd ) { |
| 262 |
# set "missing" flags for all items with a datelastseen (dls) before the chosen datelastseen (cdls) |
| 263 |
my $dls = output_pref( { dt => dt_from_string( $datelastseen ), |
| 264 |
dateformat => 'iso' } ); |
| 265 |
foreach my $item ( @$inventorylist ) { |
| 266 |
my $cdls = output_pref( { dt => dt_from_string( $item->{datelastseen} ), |
| 267 |
dateformat => 'iso' } ); |
| 268 |
if ( $cdls lt $dls ) { |
| 269 |
$item->{problem} = 'missingitem'; |
| 270 |
# We have to push a copy of the item, not the reference |
| 271 |
push @items_with_problems, { %$item }; |
| 272 |
} |
| 273 |
} |
| 274 |
} |
| 275 |
|
| 276 |
|
| 277 |
|
| 278 |
# insert "wrongplace" to all scanned items that are not supposed to be in this range |
260 |
# insert "wrongplace" to all scanned items that are not supposed to be in this range |
| 279 |
# note this list is always displayed, whatever the librarian has chosen for comparison |
261 |
# note this list is always displayed, whatever the librarian has chosen for comparison |
| 280 |
my $moddatecount = 0; |
262 |
my $moddatecount = 0; |
|
Lines 389-396
if (defined $input->param('CSVexport') && $input->param('CSVexport') eq 'on'){
Link Here
|
| 389 |
if ( defined $item->{problem} ) { |
371 |
if ( defined $item->{problem} ) { |
| 390 |
if ( $item->{problem} eq 'wrongplace' ) { |
372 |
if ( $item->{problem} eq 'wrongplace' ) { |
| 391 |
push @line, "wrong place"; |
373 |
push @line, "wrong place"; |
| 392 |
} elsif ( $item->{problem} eq 'missingitem' ) { |
|
|
| 393 |
push @line, "missing item"; |
| 394 |
} elsif ( $item->{problem} eq 'changestatus' ) { |
374 |
} elsif ( $item->{problem} eq 'changestatus' ) { |
| 395 |
push @line, "change item status"; |
375 |
push @line, "change item status"; |
| 396 |
} elsif ($item->{problem} eq 'not_scanned' ) { |
376 |
} elsif ($item->{problem} eq 'not_scanned' ) { |
| 397 |
- |
|
|