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

[Bruno Toumi]

CVSROOT:	/cvsroot/koha
Module name:	koha
Changes by:	Bruno Toumi <btoumi>	07/04/05 15:55:56

Modified files:
	C4/Circulation : Fines.pm 

Log message:
	bug fix : add another security in check of notify_id 

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

Patches:
Index: Fines.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Circulation/Fines.pm,v
retrieving revision 1.25
retrieving revision 1.26
diff -u -b -r1.25 -r1.26
--- Fines.pm	5 Apr 2007 14:08:17 -0000	1.25
+++ Fines.pm	5 Apr 2007 15:55:56 -0000	1.26
@@ -1,6 +1,6 @@
 package C4::Circulation::Fines;
 
-# $Id: Fines.pm,v 1.25 2007/04/05 14:08:17 btoumi Exp $
+# $Id: Fines.pm,v 1.26 2007/04/05 15:55:56 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.25 $' =~ /\d+/g; 
+$VERSION = do { my @v = '$Revision: 1.26 $' =~ /\d+/g; 
 shift(@v) . "." . join("_", map {sprintf "%03d", $_ } @v); };
 
 =head1 NAME
@@ -659,7 +659,8 @@
     my $query=qq|    SELECT distinct(notify_id)
             FROM accountlines
             WHERE borrowernumber=?
-	    AND notify_id != 0|;
+	    AND notify_id != 0
+	    AND notify_id != 1	|;
     my @notify;
     my $sth=$dbh->prepare($query);
         $sth->execute($borrowernumber);