[Koha-cvs] koha/C4 Members.pm

[Henri-Damien LAURENT]

CVSROOT:        /cvsroot/koha
Module name:    koha
Changes by:     Henri-Damien LAURENT <hdl>      07/04/24 14:17:24

Modified files:
        C4             : Members.pm 

Log message:
        BugFixing :
        GetBorrowerAcctRecord now takes a date.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Members.pm?cvsroot=koha&r1=1.46&r2=1.47

Patches:
Index: Members.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Members.pm,v
retrieving revision 1.46
retrieving revision 1.47
diff -u -b -r1.46 -r1.47
--- Members.pm  24 Apr 2007 13:57:13 -0000      1.46
+++ Members.pm  24 Apr 2007 14:17:24 -0000      1.47
@@ -17,7 +17,7 @@
 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
 # Suite 330, Boston, MA  02111-1307 USA
 
-# $Id: Members.pm,v 1.46 2007/04/24 13:57:13 hdl Exp $
+# $Id: Members.pm,v 1.47 2007/04/24 14:17:24 hdl Exp $
 
 use strict;
 require Exporter;
@@ -31,7 +31,7 @@
 
 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
 
-$VERSION = do { my @v = '$Revision: 1.46 $' =~ /\d+/g; shift(@v) . "." . join( 
"_", map { sprintf "%03d", $_ } @v ); };
+$VERSION = do { my @v = '$Revision: 1.47 $' =~ /\d+/g; shift(@v) . "." . join( 
"_", map { sprintf "%03d", $_ } @v ); };
 
 =head1 NAME
 
@@ -1109,20 +1109,21 @@
     my @acctlines;
     my $numlines = 0;
     my $strsth      = qq(
-        Select * from accountlines where
-borrowernumber=? order by date desc,timestamp desc
-    );
+SELECT * 
+FROM accountlines 
+WHERE borrowernumber=?);
     my @bind = ($borrowernumber);
     if ($date && $date ne ''){
-    $strsth.=" AND date < ?";
+    $strsth.="
+AND date < ? ";
     push(@bind,$date);
     }
-
+    $strsth.="
+ORDER BY date desc,timestamp DESC";
     my $sth= $dbh->prepare( $strsth );
-    $sth->execute( $borrowernumber);
+    $sth->execute( @bind );
     my $total = 0;
     while ( my $data = $sth->fetchrow_hashref ) {
-
         $acctlines[$numlines] = $data;
         $numlines++;
         $total += $data->{'amountoutstanding'};