Lines 315-320
sub _do_changepassword {
Link Here
|
315 |
"Unable to access borrowernumber with userid=$userid, borrowernumber=$borrowerid" |
315 |
"Unable to access borrowernumber with userid=$userid, borrowernumber=$borrowerid" |
316 |
if !$sth->rows; |
316 |
if !$sth->rows; |
317 |
my ($cardnum) = $sth->fetchrow; |
317 |
my ($cardnum) = $sth->fetchrow; |
|
|
318 |
my $sth = C4::Context->dbh->prepare( |
319 |
'UPDATE borrowers SET password = null WHERE borrowernumber=?'); |
320 |
$sth->execute($borrowerid); |
318 |
return $cardnum; |
321 |
return $cardnum; |
319 |
} |
322 |
} |
320 |
my $digest = hash_password($password); |
323 |
my $digest = hash_password($password); |
321 |
- |
|
|