@@ -, +, @@ parameter passed --- tools/inventory.pl | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) --- a/tools/inventory.pl +++ a/tools/inventory.pl @@ -151,7 +151,7 @@ my @errorloop; if ( $uploadbarcodes && length($uploadbarcodes) > 0 ) { my $dbh = C4::Context->dbh; my $date = dt_from_string( $input->param('setdate') ); - $date = output_pref( $date, 'iso' ); + $date = output_pref( { dt => $date, dateformat => 'iso' } ); my $strsth = "select * from issues, items where items.itemnumber=issues.itemnumber and items.barcode =?"; my $qonloan = $dbh->prepare($strsth); @@ -204,9 +204,9 @@ if ( $markseen or $op ) { # 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 choosen datelastseen (cdls) - my $dls = output_pref( dt_from_string( $datelastseen ), 'iso' ); + my $dls = output_pref( { dt => dt_from_string( $datelastseen ), dateformat => 'iso' } ); foreach my $item ( @$inventorylist ) { - my $cdls = output_pref( dt_from_string( $_->{datelastseen} ), 'iso' ); + my $cdls = output_pref( { dt => dt_from_string( $_->{datelastseen} ), dateformat => 'iso' } ); if ( $cdls lt $dls ) { $item->{problem} = 'missingitem'; # We have to push a copy of the item, not the reference --