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