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

(-)a/opac/opac-memberentry.pl (-2 / +3 lines)
Lines 26-31 use C4::Output; Link Here
26
use C4::Members;
26
use C4::Members;
27
use Koha::Borrower::Modifications;
27
use Koha::Borrower::Modifications;
28
use C4::Branch qw(GetBranchesLoop);
28
use C4::Branch qw(GetBranchesLoop);
29
use C4::Scrubber;
29
30
30
my $cgi = new CGI;
31
my $cgi = new CGI;
31
my $dbh = C4::Context->dbh;
32
my $dbh = C4::Context->dbh;
Lines 276-287 sub CheckMandatoryFields { Link Here
276
sub ParseCgiForBorrower {
277
sub ParseCgiForBorrower {
277
    my ($cgi) = @_;
278
    my ($cgi) = @_;
278
279
280
    my $scrubber = C4::Scrubber->new();
279
    my %borrower;
281
    my %borrower;
280
282
281
    foreach ( $cgi->param ) {
283
    foreach ( $cgi->param ) {
282
        if ( $_ =~ '^borrower_' ) {
284
        if ( $_ =~ '^borrower_' ) {
283
            my ($key) = substr( $_, 9 );
285
            my ($key) = substr( $_, 9 );
284
            $borrower{$key} = $cgi->param($_);
286
            $borrower{$key} = $scrubber->scrub( $cgi->param($_) );
285
        }
287
        }
286
    }
288
    }
287
289
288
- 

Return to bug 11535