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{}; |