|
Lines 9-15
use C4::Output;
Link Here
|
| 9 |
use C4::Context; |
9 |
use C4::Context; |
| 10 |
use Koha::Patron::Password::Recovery |
10 |
use Koha::Patron::Password::Recovery |
| 11 |
qw(SendPasswordRecoveryEmail ValidateBorrowernumber GetValidLinkInfo CompletePasswordRecovery DeleteExpiredPasswordRecovery); |
11 |
qw(SendPasswordRecoveryEmail ValidateBorrowernumber GetValidLinkInfo CompletePasswordRecovery DeleteExpiredPasswordRecovery); |
| 12 |
use Koha::Patrons; |
12 |
use Koha::Patron; |
| 13 |
use Koha::Patrons; |
13 |
use Koha::Patrons; |
| 14 |
my $query = CGI->new; |
14 |
my $query = CGI->new; |
| 15 |
use HTML::Entities; |
15 |
use HTML::Entities; |
|
Lines 42-49
my $errNoBorrowerFound;
Link Here
|
| 42 |
my $errNoBorrowerEmail; |
42 |
my $errNoBorrowerEmail; |
| 43 |
my $errMultipleAccountsForEmail; |
43 |
my $errMultipleAccountsForEmail; |
| 44 |
my $errAlreadyStartRecovery; |
44 |
my $errAlreadyStartRecovery; |
| 45 |
my $errTooManyEmailFound; |
|
|
| 46 |
my $errBadEmail; |
| 47 |
my $errResetForbidden; |
45 |
my $errResetForbidden; |
| 48 |
|
46 |
|
| 49 |
#new password form error |
47 |
#new password form error |
|
Lines 123-133
if ( $query->param('sendEmail') || $query->param('resendEmail') ) {
Link Here
|
| 123 |
if ($hasError) { |
121 |
if ($hasError) { |
| 124 |
$template->param( |
122 |
$template->param( |
| 125 |
hasError => 1, |
123 |
hasError => 1, |
| 126 |
|
|
|
| 127 |
errNoBorrowerFound => $errNoBorrowerFound, |
124 |
errNoBorrowerFound => $errNoBorrowerFound, |
| 128 |
errTooManyEmailFound => $errTooManyEmailFound, |
|
|
| 129 |
errAlreadyStartRecovery => $errAlreadyStartRecovery, |
125 |
errAlreadyStartRecovery => $errAlreadyStartRecovery, |
| 130 |
errBadEmail => $errBadEmail, |
|
|
| 131 |
errNoBorrowerEmail => $errNoBorrowerEmail, |
126 |
errNoBorrowerEmail => $errNoBorrowerEmail, |
| 132 |
errMultipleAccountsForEmail => $errMultipleAccountsForEmail, |
127 |
errMultipleAccountsForEmail => $errMultipleAccountsForEmail, |
| 133 |
errResetForbidden => $errResetForbidden, |
128 |
errResetForbidden => $errResetForbidden, |
| 134 |
- |
|
|