From a98d60ada10e27030d59dfd8d2f8e5c9c9222b46 Mon Sep 17 00:00:00 2001
From: btoumi <btoumi>
Date: Tue, 6 Jun 2006 15:54:36 +0000
Subject: [PATCH] bug fix :syntax error in variable name

---
 C4/Members.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/C4/Members.pm b/C4/Members.pm
index a2ca4380f0..eda87e6020 100644
--- a/C4/Members.pm
+++ b/C4/Members.pm
@@ -305,7 +305,7 @@ sub modmember {
 	$data{'dateofbirth'}=format_date_in_iso($data{'dateofbirth'});
 	$data{'dateexpiry'}=format_date_in_iso($data{'dateexpiry'});
 	$data{'dateenrolled'}=format_date_in_iso($data{'dateenrolled'});
-	warn "la date:".$data{dateenrolled};
+#  	warn "num user".$data{'borrowernumber'};
 	my $query;
 	my $sth;
 	$data{'userid'}='' if ($data{'password'}eq '');
@@ -1088,14 +1088,14 @@ return the number of record
 =cut
 
 sub checkuserpassword {
-    my ( $borrowerid, $userid, $password ) = @_;
+    my ( $borrowernumber, $userid, $password ) = @_;
     $password = md5_base64($password);
     my $dbh = C4::Context->dbh;
     my $sth =
       $dbh->prepare(
 "Select count(*) from borrowers where borrowernumber !=? and userid =? and password=? "
       );
-    $sth->execute( $borrowerid, $userid, $password );
+    $sth->execute( $borrowernumber, $userid, $password );
     my $number_rows = $sth->fetchrow;
     return $number_rows;
 
-- 
2.39.5