(bug #4051) add due date in overdue.tmpl

[koha.git] / C4 / Overdues.pm

diff --git a/C4/Overdues.pm b/C4/Overdues.pm
index 2783888..79e5151 100644 (file)
--- a/C4/Overdues.pm
+++ b/C4/Overdues.pm
@@ -20,6 +20,7 @@ package C4::Overdues;
 
 use strict;
 use Date::Calc qw/Today Date_to_Days/;
+use C4::Dates qw/format_date/;
 use Date::Manip qw/UnixDate/;
 use C4::Circulation;
 use C4::Context;
@@ -256,7 +257,7 @@ sub GetOverduesByBorrowers{
         push @args, $dateduefrom;
     }
     if(not ($datedueto or $dateduefrom)){
-        $strsthissues .= " AND date_due > NOW() ";
+        $strsthissues .= " AND date_due < NOW() ";
     }
     my $sthissues = $dbh->prepare($strsthissues);
     my $sthbor    = $dbh->prepare($strsth);
@@ -268,6 +269,8 @@ sub GetOverduesByBorrowers{
         
         my @issues = ();
         while(my $issuedata = $sthissues->fetchrow_hashref()){
+            $issuedata->{date_due}  = format_date($issuedata->{date_due}); 
+            $issuedata->{issuedate} = format_date($issuedata->{issuedate});
             push @issues, $issuedata;
         }
         $borrower->{overdues} = \@issues;