[Koha-cvs] koha/circ overdue.pl [rel_3_0]

[paul poulain]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         rel_3_0
Changes by:     paul poulain <tipaul>   07/01/25 17:37:05

Modified files:
        circ           : overdue.pl 

Log message:
        format date & bugfix on emailaddress field that is "email" now

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/circ/overdue.pl?cvsroot=koha&only_with_tag=rel_3_0&r1=1.1.2.1&r2=1.1.2.2

Patches:
Index: overdue.pl
===================================================================
RCS file: /sources/koha/koha/circ/Attic/overdue.pl,v
retrieving revision 1.1.2.1
retrieving revision 1.1.2.2
diff -u -b -r1.1.2.1 -r1.1.2.2
--- overdue.pl  12 Dec 2006 11:03:47 -0000      1.1.2.1
+++ overdue.pl  25 Jan 2007 17:37:05 -0000      1.1.2.2
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: overdue.pl,v 1.1.2.1 2006/12/12 11:03:47 toins Exp $
+# $Id: overdue.pl,v 1.1.2.2 2007/01/25 17:37:05 tipaul Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -25,6 +25,7 @@
 use C4::Interface::CGI::Output;
 use CGI;
 use C4::Auth;
+use C4::Date;
 
 my $input = new CGI;
 my $type  = $input->param('type');
@@ -71,19 +72,19 @@
 
 my @overduedata;
 while ( my $data = $sth->fetchrow_hashref ) {
-    $duedate        = $data->{'date_due'};
+    $duedate        = format_date($data->{'date_due'});
     $borrowernumber = $data->{'borrowernumber'};
     $itemnum        = $data->{'itemnumber'};
 
     my $sth1 =
       $dbh->prepare(
-"select concat(firstname,' ',surname),phone,emailaddress from borrowers where 
borrowernumber=?"
+"select concat(firstname,' ',surname),phone,email from borrowers where 
borrowernumber=?"
       );
     $sth1->execute($borrowernumber);
     $data1 = $sth1->fetchrow_hashref;
     $name  = $data1->{'concat(firstname,\' \',surname)'};
     $phone = $data1->{'phone'};
-    $email = $data1->{'emailaddress'};
+    $email = $data1->{'email'};
     $sth1->finish;
 
     my $sth2 =