From e87c347d1c9782d62c9b940f970d6371a3b42bf1 Mon Sep 17 00:00:00 2001
From: slef <slef>
Date: Fri, 26 Sep 2003 12:01:41 +0000
Subject: [PATCH] grrr typo... must test before checkin

---
 member-password.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/member-password.pl b/member-password.pl
index 491ccb84ee..e134e3d18e 100755
--- a/member-password.pl
+++ b/member-password.pl
@@ -52,7 +52,7 @@ if ( $newpassword ) {
     my $uid = $input->param('newuserid');
     my $dbh=C4::Context->dbh;
 
-	if ($uid eq '') { $uid = $bor->{userid'} }
+	if ($uid eq '') { $uid = $bor->{'userid'} }
 	#Make sure the userid chosen is unique and not theirs. If it is not,
 	#Then we need to tell the user and have them create a new one.
 	my $sth2=$dbh->prepare("select * from borrowers where userid=? and borrowernumber != ?");
-- 
2.39.2