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