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