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