View | Details | Raw Unified | Return to bug 25382
Collapse All | Expand All

(-)a/opac/opac-sendbasket.pl (+9 lines)
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{};
(-)a/opac/opac-sendshelf.pl (-1 / +7 lines)
Lines 61-66 my $shelf = Koha::Virtualshelves->find( $shelfid ); Link Here
61
if ( $shelf and $shelf->can_be_viewed( $borrowernumber ) ) {
61
if ( $shelf and $shelf->can_be_viewed( $borrowernumber ) ) {
62
62
63
if ( $email ) {
63
if ( $email ) {
64
    if ( ! Email::Valid->address($email) ){
65
        carp "email address invalid";
66
        $template->param( email => $email ); #param needed to trigger error template
67
        $template->param( error => 1 );
68
        output_html_with_http_headers $query, $cookie, $template->output, undef, { force_no_caching => 1 };
69
        exit;
70
    }
64
    my $message = Koha::Email->new();
71
    my $message = Koha::Email->new();
65
    my $comment    = $query->param('comment');
72
    my $comment    = $query->param('comment');
66
73
67
- 

Return to bug 25382