koha-cvs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Koha-cvs] koha overdue.pl [rel_2_2]


From: paul poulain
Subject: [Koha-cvs] koha overdue.pl [rel_2_2]
Date: Wed, 14 Jun 2006 15:37:46 +0000

CVSROOT:        /cvsroot/koha
Module name:    koha
Branch:         rel_2_2
Changes by:     paul poulain <tipaul>   06/06/14 15:37:46

Modified files:
        .              : overdue.pl 

Log message:
        bugfix in overdue list

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/overdue.pl?cvsroot=koha&only_with_tag=rel_2_2&r1=1.9.2.11&r2=1.9.2.12

Patches:
Index: overdue.pl
===================================================================
RCS file: /cvsroot/koha/koha/Attic/overdue.pl,v
retrieving revision 1.9.2.11
retrieving revision 1.9.2.12
diff -u -b -r1.9.2.11 -r1.9.2.12
--- overdue.pl  4 Apr 2006 13:13:47 -0000       1.9.2.11
+++ overdue.pl  14 Jun 2006 15:37:46 -0000      1.9.2.12
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: overdue.pl,v 1.9.2.11 2006/04/04 13:13:47 tipaul Exp $
+# $Id: overdue.pl,v 1.9.2.12 2006/06/14 15:37:46 tipaul Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -121,7 +121,7 @@
 $bornamefilter =~s/\*/\%/g;
 $bornamefilter =~s/\?/\_/g;
 
-my $strsth="select date_due,concat(surname,' ', firstname) as borrower, 
borrowers.phone, borrowers.emailaddress,issues.itemnumber, biblio.title, 
biblio.author from issues
+my $strsth="select date_due,concat(surname,' ', firstname) as borrower, 
borrowers.phone, borrowers.emailaddress,issues.itemnumber, biblio.title, 
biblio.author,borrowers.borrowernumber from issues
 LEFT JOIN borrowers ON issues.borrowernumber=borrowers.borrowernumber 
 LEFT JOIN items ON issues.itemnumber=items.itemnumber
 LEFT JOIN biblioitems ON biblioitems.biblioitemnumber=items.biblioitemnumber
@@ -159,7 +159,7 @@
   $title=$data->{'title'};
   $author=$data->{'author'};
   push (@overduedata, {        duedate      => $duedate,
-                       bornum       => $bornum,
+                       bornum       => $data->{borrowernumber},
                        itemnum      => $itemnum,
                        name         => $name,
                        phone        => $phone,




reply via email to

[Prev in Thread] Current Thread [Next in Thread]