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 |
- |
|
|