Lines 304-309
sub _do_changepassword {
Link Here
|
304 |
"Unable to access borrowernumber with userid=$userid, borrowernumber=$borrowerid" |
304 |
"Unable to access borrowernumber with userid=$userid, borrowernumber=$borrowerid" |
305 |
if !$sth->rows; |
305 |
if !$sth->rows; |
306 |
my ($cardnum) = $sth->fetchrow; |
306 |
my ($cardnum) = $sth->fetchrow; |
|
|
307 |
my $sth = C4::Context->dbh->prepare( |
308 |
'UPDATE borrowers SET password = null WHERE borrowernumber=?'); |
309 |
$sth->execute($borrowerid); |
307 |
return $cardnum; |
310 |
return $cardnum; |
308 |
} |
311 |
} |
309 |
my $digest = hash_password($password); |
312 |
my $digest = hash_password($password); |
310 |
- |
|
|