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

[Bruno Toumi]

CVSROOT:        /cvsroot/koha
Module name:    koha
Changes by:     Bruno Toumi <btoumi>    07/03/30 08:38:44

Modified files:
        C4/Circulation : Circ2.pm 

Log message:
        add security on borrowernumber,barcode  for book issues 

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Circulation/Circ2.pm?cvsroot=koha&r1=1.127&r2=1.128

Patches:
Index: Circ2.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Circulation/Circ2.pm,v
retrieving revision 1.127
retrieving revision 1.128
diff -u -b -r1.127 -r1.128
--- Circ2.pm    29 Mar 2007 16:45:53 -0000      1.127
+++ Circ2.pm    30 Mar 2007 08:38:44 -0000      1.128
@@ -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: Circ2.pm,v 1.127 2007/03/29 16:45:53 tipaul Exp $
+# $Id: Circ2.pm,v 1.128 2007/03/30 08:38:44 btoumi Exp $
 
 use strict;
 require Exporter;
@@ -41,7 +41,7 @@
 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
 
 # set the version for version checking
-$VERSION = do { my @v = '$Revision: 1.127 $' =~ /\d+/g; shift(@v).".".join( 
"_", map { sprintf "%03d", $_ } @v ); };
+$VERSION = do { my @v = '$Revision: 1.128 $' =~ /\d+/g; shift(@v).".".join( 
"_", map { sprintf "%03d", $_ } @v ); };
 
 =head1 NAME
 
@@ -1194,7 +1194,7 @@
 sub issuebook {
     my ( $env, $borrower, $barcode, $date, $cancelreserve ) = @_;
     my $dbh = C4::Context->dbh;
-
+if ($borrower and $barcode){
 #   my ($borrower, $flags) = &getpatroninformation($env, $borrowernumber, 0);
     my $iteminformation = getiteminformation( 0, $barcode );
 
@@ -1401,7 +1401,7 @@
     
     
&logaction(C4::Context->userenv->{'number'},"CIRCULATION","ISSUE",$borrower->{'borrowernumber'},$iteminformation->{'biblionumber'})
 
         if C4::Context->preference("IssueLog");
-    
+  }  
 }
 
 =head2 getLoanLength