Bug 8233: We can't load test on Koha::SearchEngine::*

[koha_fer] / members / readingrec.pl

diff --git a/members/readingrec.pl b/members/readingrec.pl
index d4ecf65..d95cc8f 100755 (executable)
--- a/members/readingrec.pl
+++ b/members/readingrec.pl
@@ -30,6 +30,7 @@ use C4::Output;
 use C4::Members;
 use C4::Branch;
 use List::MoreUtils qw/any uniq/;
+use Koha::DateUtils;
 
 use C4::Dates qw/format_date/;
 use C4::Members::Attributes qw(GetBorrowerAttributes);
@@ -75,15 +76,16 @@ foreach my $issue (@{$issues}){
        $line{title}           = $issue->{'title'};
        $line{author}          = $issue->{'author'};
        $line{classification}  = $issue->{'classification'} || $issue->{'itemcallnumber'};
-       $line{date_due}        = format_date($issue->{'date_due'});
-       $line{returndate}      = format_date($issue->{'returndate'});
-       $line{issuedate}       = format_date($issue->{'issuedate'});
+       $line{date_due}        = format_sqldatetime($issue->{date_due});
+       $line{returndate}      = format_sqldatetime($issue->{returndate});
+       $line{issuedate}       = format_sqldatetime($issue->{issuedate});
        $line{issuingbranch}   = GetBranchName($issue->{'branchcode'});
        $line{renewals}        = $issue->{'renewals'};
        $line{barcode}         = $issue->{'barcode'};
        $line{volumeddesc}     = $issue->{'volumeddesc'};
        push(@loop_reading,\%line);
-    if (($input->param('op') eq 'export_barcodes') and ($today eq $issue->{'returndate'})) {
+    my $return_dt = Koha::DateUtils::dt_from_string($issue->{'returndate'}, 'iso');
+    if ( ( $input->param('op') eq 'export_barcodes' ) and ( $today eq $return_dt->ymd() ) ) {
         push( @barcodes, $issue->{'barcode'} );
     }
 }