<li><label for="setdate">Set inventory date to:</label> <input type="text" id="setdate" name="setdate" value="[% today | $KohaDates %]" class="datepickerfrom" />

            <li><label for="setdate">Set inventory date to:</label> <input type="text" id="setdate" name="setdate" value="[% today | $KohaDates %]" class="datepicker" />

        <li><label for="datelastseen">Inventory date:</label>

        <li><label for="datelastseen">Last inventory date:</label>

            <input type="text" id="datelastseen" name="datelastseen" value="[% datelastseen | $KohaDates %]" class="datepickerfrom" />

            <input type="text" id="datelastseen" name="datelastseen" value="[% datelastseen | $KohaDates %]" class="datepicker" />

            (Skip records marked as seen on or after this date.)

            <p><a href="/cgi-bin/koha/catalogue/MARCdetail.pl?biblionumber=[% result.biblionumber %]" class="openWin">[% result.title | html %]</a></p><p>[% result.author | html %]</p>

                <a href="/cgi-bin/koha/catalogue/MARCdetail.pl?biblionumber=[% result.biblionumber %]" class="openWin">[% result.title | html %]</a>

                <p>[% result.author | html %]</p>

            [% IF result.problem == 'wrongplace' %]

            [% FOREACH problem IN result.problems %]

                <p>Item should not have been scanned</p>

                [% IF problem.key == 'wrongplace' %]

            [% ELSIF result.problem == 'missingitem' %]

                    Found in wrong place<br/>

                <p>Item missing</p>

                [% ELSIF problem.key == 'changestatus' %]

            [% ELSIF result.problem == 'changestatus' %]

                    Unknown not-for-loan status<br/>

                <p>Unknown not-for-loan status</p>

                [% ELSIF problem.key == 'not_scanned' %]

            [% ELSIF result.problem == 'not_scanned' %]

                    Missing (not scanned)<br/>

                <p>Item should have been scanned</p>

                [% ELSIF problem.key == 'checkedout' %]

                    Still checked out<br/>

                [% ELSIF problem.key == 'no_barcode' %]

                    No barcode<br/>

                [% END %]

#                                         John Soros <john.soros@biblibre.com>

# John Soros <john.soros@biblibre.com>

use strict;

use Modern::Perl;

use warnings;

my $datelastseen = $input->param('datelastseen');

my $datelastseen = $input->param('datelastseen'); # last inventory date

my $markseen = $input->param('markseen');

my $staton = {};                                #authorized values that are ticked

my $staton = {}; #authorized values that are ticked

                ModItem( { datelastseen => $date }, undef, $item->{'itemnumber'} );

                # Modify date last seen for scanned items, remove lost status

                push @scanned_items, $item;

                ModItem( { itemlost => 0, datelastseen => $date }, undef, $item->{'itemnumber'} );

                $count++;

                $moddatecount++;

                # update item hash accordingly

                $item->{itemlost} = 0;

                $item->{datelastseen} = $date;

                        if ($doreturn){

                        if( $doreturn ) {

                            push @errorloop, {'barcode'=>$barcode,'ERR_ONLOAN_RET'=>1}

                            $item->{onloan} = undef;

                            $item->{datelastseen} = dt_from_string;

                            push @errorloop, {'barcode'=>$barcode,'ERR_ONLOAN_NOT_RET'=>1}

                            push @errorloop, { barcode => $barcode, ERR_ONLOAN_NOT_RET => 1 };

                push @errorloop, {'barcode'=>$barcode,'ERR_BARCODE'=>1};

                push @errorloop, { barcode => $barcode, ERR_BARCODE => 1 };

    $template->param( date => $date );

    $template->param( date => $date, Number => $count );

# now build the result list: inventoried items if requested, and mis-placed items -always-

# Build inventorylist: used as result list when you do not pass barcodes

my $inventorylist;

# This list is also used when you want to compare with barcodes

my $wrongplacelist;

my ( $inventorylist, $rightplacelist );

my @items_with_problems;

if ( $op && ( !$uploadbarcodes || $compareinv2barcd )) {

if ( $markseen or $op ) {

    ( $inventorylist ) = GetItemsForInventory({

    # retrieve all items in this range.

    my $totalrecords;

    # We use datelastseen only when comparing the results to the barcode file.

    my $paramdatelastseen = ($compareinv2barcd) ? $datelastseen : '';

    ($inventorylist, $totalrecords) = GetItemsForInventory( {

      datelastseen => $paramdatelastseen,

      datelastseen => $datelastseen,

    } );

    });

}

    # For the items that may be marked as "wrong place", we only check the location (callnumbers, location and branch)

# Build rightplacelist used to check if a scanned item is in the right place.

    ($wrongplacelist, $totalrecords) = GetItemsForInventory( {

if( @scanned_items ) {

    ( $rightplacelist ) = GetItemsForInventory({

    } );

    });

    # Convert the structure to a hash on barcode

}

    $rightplacelist = {

        map { $_->{barcode} ? ( $_->{barcode}, $_ ) : (); } @$rightplacelist

# If "compare barcodes list to results" has been checked, we want to alert for missing items

    };

if ( $compareinv2barcd ) {

    # set "missing" flags for all items with a datelastseen (dls) before the chosen datelastseen (cdls)

    my $dls = output_pref( { dt => dt_from_string( $datelastseen ),

                             dateformat => 'iso' } );

    foreach my $item ( @$inventorylist ) {

        my $cdls = output_pref( { dt => dt_from_string( $item->{datelastseen} ),

                                  dateformat => 'iso' } );

        if ( $cdls lt $dls ) {

            $item->{problem} = 'missingitem';

            # We have to push a copy of the item, not the reference

            push @items_with_problems, { %$item };

        }

    }

# Report scanned items that are on the wrong place, or have a wrong notforloan

# status, or are still checked out.

# insert "wrongplace" to all scanned items that are not supposed to be in this range

# note this list is always displayed, whatever the librarian has chosen for comparison

my $moddatecount = 0;

  # Saving notforloan code before it's replaced by it's authorised value for later comparison

    # Populating with authorised values

  $item->{notforloancode} = $item->{notforloan};

    foreach my $field ( keys %$item ) {

  # Populating with authorised values

  foreach my $field ( keys %$item ) {

    if (none { $item->{'notforloancode'} eq $_ } @notforloans) {

    if( none { $item->{'notforloancode'} eq $_ } @notforloans ) {

        $item->{problem} = 'changestatus';

        $item->{problems}->{changestatus} = 1;

        push @items_with_problems, { %$item };

        additemtoresults( $item, $results );

    }

    if (none { $item->{barcode} eq $_->{barcode} && !$_->{'onloan'} } @$wrongplacelist) {

        $item->{problem} = 'wrongplace';

        push @items_with_problems, { %$item };

    # Modify date last seen for scanned items

    # Report an item that is checked out (unusual!) or wrongly placed

    ModDateLastSeen($item->{'itemnumber'});

    if( $item->{onloan} ) {

    $moddatecount++;

        $item->{problems}->{checkedout} = 1;

        additemtoresults( $item, $results );

        next; # do not modify item

    } elsif( !exists $rightplacelist->{ $item->{barcode} } ) {

        $item->{problems}->{wrongplace} = 1;

        additemtoresults( $item, $results );

    }

    for my $should_be_scanned ( @$inventorylist ) {

    for my $item ( @$inventorylist ) {

        my $barcode = $should_be_scanned->{barcode};

        my $barcode = $item->{barcode};

        unless ( grep /^$barcode$/, @scanned_barcodes ) {

        if( !$barcode ) {

            $should_be_scanned->{problem} = 'not_scanned';

            $item->{problems}->{no_barcode} = 1;

            push @items_with_problems, { %$should_be_scanned };

        } elsif ( grep /^$barcode$/, @scanned_barcodes ) {

            next;

        } else {

            $item->{problems}->{not_scanned} = 1;

for my $item ( @items_with_problems ) {

# Construct final results, add biblio information

my $loop = $uploadbarcodes

    ? [ map { $results->{$_} } keys %$results ]

    : $inventorylist // [];

for my $item ( @$loop ) {

    loop       => \@results,

    loop         => $loop,

    op         => $op

    op           => $op,

    for my $item ( @results ) {

    for my $item ( @$loop ) {

        if ( defined $item->{problem} ) {

        my $errstr = '';

            if ( $item->{problem} eq 'wrongplace' ) {

        foreach my $key ( keys %{$item->{problems}} ) {

                push @line, "wrong place";

            if( $key eq 'wrongplace' ) {

            } elsif ( $item->{problem} eq 'missingitem' ) {

                $errstr .= "wrong place,";

                push @line, "missing item";

            } elsif( $key eq 'changestatus' ) {

            } elsif ( $item->{problem} eq 'changestatus' ) {

                $errstr .= "unknown notforloan status,";

                push @line, "change item status";

            } elsif( $key eq 'not_scanned' ) {

            } elsif ($item->{problem} eq 'not_scanned' ) {

                $errstr .= "missing,";

                push @line, "item not scanned";

            } elsif( $key eq 'no_barcode' ) {

                $errstr .= "no barcode,";

            } elsif( $key eq 'checkedout' ) {

                $errstr .= "checked out,";

- 

sub additemtoresults {

    my ( $item, $results ) = @_;

    my $itemno = $item->{itemnumber};

    # since the script appends to $item, we can just overwrite the hash entry

    $results->{$itemno} = $item;

}