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 05ade6a..d95cc8f 100755 (executable)
--- a/members/readingrec.pl
+++ b/members/readingrec.pl
@@ -76,16 +76,16 @@ foreach my $issue (@{$issues}){
        $line{title}           = $issue->{'title'};
        $line{author}          = $issue->{'author'};
        $line{classification}  = $issue->{'classification'} || $issue->{'itemcallnumber'};
-    my $dt = dt_from_string($issue->{date_due}, 'sql');
-       $line{date_due}        = output_pref($dt);
-       $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'} );
     }
 }