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

(-)a/opac/opac-memberentry.pl (-5 / +9 lines)
Lines 441-450 sub ParseCgiForBorrower { Link Here
441
    my $scrubber = C4::Scrubber->new();
441
    my $scrubber = C4::Scrubber->new();
442
    my %borrower;
442
    my %borrower;
443
443
444
    foreach ( $cgi->param ) {
444
    foreach my $field ( $cgi->param ) {
445
        if ( $_ =~ '^borrower_' ) {
445
        if ( $field =~ '^borrower_' ) {
446
            my ($key) = substr( $_, 9 );
446
            my ($key) = substr( $field, 9 );
447
            $borrower{$key} = $scrubber->scrub( scalar $cgi->param($_) );
447
            if ( $field !~ '^borrower_password' ) {
448
                $borrower{$key} = $scrubber->scrub( scalar $cgi->param($field) );
449
            } else {
450
                # Allow html characters for passwords
451
                $borrower{$key} = $cgi->param($field);
452
            }
448
        }
453
        }
449
    }
454
    }
450
455
451
- 

Return to bug 19911