|
Lines 40-45
my $destination = $input->param("destination") || '';
Link Here
|
| 40 |
my $borrowernumber=$input->param('borrowernumber'); |
40 |
my $borrowernumber=$input->param('borrowernumber'); |
| 41 |
my $status = $input->param('status'); |
41 |
my $status = $input->param('status'); |
| 42 |
my $reregistration = $input->param('reregistration') || ''; |
42 |
my $reregistration = $input->param('reregistration') || ''; |
|
|
43 |
my $resetloginattempts = $input->param('resetloginattempts') || ''; |
| 43 |
|
44 |
|
| 44 |
my $dbh = C4::Context->dbh; |
45 |
my $dbh = C4::Context->dbh; |
| 45 |
my $dateexpiry; |
46 |
my $dateexpiry; |
|
Lines 54-59
if ( $logged_in_user->can_see_patron_infos($patron) ) {
Link Here
|
| 54 |
if ( $reregistration eq 'y' ) { |
55 |
if ( $reregistration eq 'y' ) { |
| 55 |
# re-reregistration function to automatic calcul of date expiry |
56 |
# re-reregistration function to automatic calcul of date expiry |
| 56 |
$dateexpiry = $patron->renew_account; |
57 |
$dateexpiry = $patron->renew_account; |
|
|
58 |
} elsif ( $resetloginattempts eq 'y' ) { |
| 59 |
$patron->login_attempts(0)->store; |
| 57 |
} else { |
60 |
} else { |
| 58 |
my $sth = $dbh->prepare("UPDATE borrowers SET debarred = ?, debarredcomment = '' WHERE borrowernumber = ?"); |
61 |
my $sth = $dbh->prepare("UPDATE borrowers SET debarred = ?, debarredcomment = '' WHERE borrowernumber = ?"); |
| 59 |
$sth->execute( $status, $borrowernumber ); |
62 |
$sth->execute( $status, $borrowernumber ); |
| 60 |
- |
|
|