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

(-)a/opac/opac-memberentry.pl (-3 / +1 lines)
Lines 20-26 use Modern::Perl; Link Here
20
use CGI qw ( -utf8 );
20
use CGI qw ( -utf8 );
21
use Digest::MD5 qw( md5_base64 md5_hex );
21
use Digest::MD5 qw( md5_base64 md5_hex );
22
use String::Random qw( random_string );
22
use String::Random qw( random_string );
23
use HTML::Entities;
24
23
25
use C4::Auth;
24
use C4::Auth;
26
use C4::Output;
25
use C4::Output;
Lines 403-409 sub ParseCgiForBorrower { Link Here
403
    foreach ( $cgi->param ) {
402
    foreach ( $cgi->param ) {
404
        if ( $_ =~ '^borrower_' ) {
403
        if ( $_ =~ '^borrower_' ) {
405
            my ($key) = substr( $_, 9 );
404
            my ($key) = substr( $_, 9 );
406
            $borrower{$key} = HTML::Entities::encode( $scrubber->scrub( scalar $cgi->param($_) ) );
405
            $borrower{$key} = $scrubber->scrub( scalar $cgi->param($_) );
407
        }
406
        }
408
    }
407
    }
409
408
410
- 

Return to bug 17393