From b670fb207fdc0ed472b3e707eb04ef4cef8c1c0d Mon Sep 17 00:00:00 2001 From: Mark Tompsett Date: Tue, 26 Nov 2013 14:40:35 -0500 Subject: [PATCH] Bug 11253 - tools/inventory.pl output_pref ignores 'iso' parameter passed Took all the output_pref function calls and converted them to the newer hash format parameter. --- tools/inventory.pl | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/tools/inventory.pl b/tools/inventory.pl index 3d8939e..bccd010 100755 --- a/tools/inventory.pl +++ b/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 -- 1.7.9.5