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

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/tools/inventory.tt (-4 / +2 lines)
Lines 295-307 $(document).ready(function(){ Link Here
295
            </td>
295
            </td>
296
            <td>
296
            <td>
297
            [% IF result.problem == 'wrongplace' %]
297
            [% IF result.problem == 'wrongplace' %]
298
                <p>Item should not have been scanned</p>
298
                <p>Item at wrong location (should not have been scanned)</p>
299
            [% ELSIF result.problem == 'missingitem' %]
300
                <p>Item missing</p>
301
            [% ELSIF result.problem == 'changestatus' %]
299
            [% ELSIF result.problem == 'changestatus' %]
302
                <p>Unknown not-for-loan status</p>
300
                <p>Unknown not-for-loan status</p>
303
            [% ELSIF result.problem == 'not_scanned' %]
301
            [% ELSIF result.problem == 'not_scanned' %]
304
                <p>Item should have been scanned</p>
302
                <p>Item missing (should have been scanned)</p>
305
            [% END %]
303
            [% END %]
306
            </td>
304
            </td>
307
        </tr>
305
        </tr>
(-)a/tools/inventory.pl (-21 lines)
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
- 

Return to bug 14399