|
Lines 57-62
if ( $email_add ) {
Link Here
|
| 57 |
session_id => scalar $query->cookie('CGISESSID'), |
57 |
session_id => scalar $query->cookie('CGISESSID'), |
| 58 |
token => scalar $query->param('csrf_token'), |
58 |
token => scalar $query->param('csrf_token'), |
| 59 |
}); |
59 |
}); |
|
|
60 |
|
| 61 |
if ( ! Email::Valid->address($email_add) ){ |
| 62 |
carp "email address invalid"; |
| 63 |
$template->param( email_add => $email_add ); #param needed to trigger error template |
| 64 |
$template->param( error => 1 ); |
| 65 |
output_html_with_http_headers $query, $cookie, $template->output, undef, { force_no_caching => 1 }; |
| 66 |
exit; |
| 67 |
} |
| 68 |
|
| 60 |
my $email = Koha::Email->new(); |
69 |
my $email = Koha::Email->new(); |
| 61 |
my $patron = Koha::Patrons->find( $borrowernumber ); |
70 |
my $patron = Koha::Patrons->find( $borrowernumber ); |
| 62 |
my $borcat = $patron ? $patron->categorycode : q{}; |
71 |
my $borcat = $patron ? $patron->categorycode : q{}; |