koha-cvs
[Top][All Lists]
Advanced

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

[Koha-cvs] koha/C4/Circulation Fines.pm


From: Bruno Toumi
Subject: [Koha-cvs] koha/C4/Circulation Fines.pm
Date: Mon, 21 May 2007 07:45:45 +0000

CVSROOT:        /cvsroot/koha
Module name:    koha
Changes by:     Bruno Toumi <btoumi>    07/05/21 07:45:45

Modified files:
        C4/Circulation : Fines.pm 

Log message:
        bug fix :
        add sql condition to recover only the right record from issues table

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Circulation/Fines.pm?cvsroot=koha&r1=1.28&r2=1.29

Patches:
Index: Fines.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Circulation/Fines.pm,v
retrieving revision 1.28
retrieving revision 1.29
diff -u -b -r1.28 -r1.29
--- Fines.pm    7 May 2007 14:57:01 -0000       1.28
+++ Fines.pm    21 May 2007 07:45:45 -0000      1.29
@@ -1,6 +1,6 @@
 package C4::Circulation::Fines;
 
-# $Id: Fines.pm,v 1.28 2007/05/07 14:57:01 btoumi Exp $
+# $Id: Fines.pm,v 1.29 2007/05/21 07:45:45 btoumi Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -29,7 +29,7 @@
 use C4::Log; # logaction
 
 # set the version for version checking
-$VERSION = do { my @v = '$Revision: 1.28 $' =~ /\d+/g; 
+$VERSION = do { my @v = '$Revision: 1.29 $' =~ /\d+/g; 
 shift(@v) . "." . join("_", map {sprintf "%03d", $_ } @v); };
 
 =head1 NAME
@@ -338,7 +338,7 @@
 my $query = qq|SELECT *  
     FROM issues
     WHERE itemnumber=?
-|;
+    AND returndate IS NULL|;
 my $sth = $dbh->prepare($query);
 $sth->execute($itemnumber);
 my ($issuesinfo)=$sth->fetchrow_hashref;




reply via email to

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