use C4::Members;
use Koha::Borrower::Modifications;
use C4::Branch qw(GetBranchesLoop);
+use C4::Scrubber;
my $cgi = new CGI;
my $dbh = C4::Context->dbh;
action => $action,
hidden => GetHiddenFields(),
mandatory => GetMandatoryFields($action),
- member_titles => GetTitles(),
+ member_titles => GetTitles() || undef,
branches => GetBranchesLoop(),
OPACPatronDetails => C4::Context->preference('OPACPatronDetails'),
);
sub ParseCgiForBorrower {
my ($cgi) = @_;
+ my $scrubber = C4::Scrubber->new();
my %borrower;
foreach ( $cgi->param ) {
if ( $_ =~ '^borrower_' ) {
my ($key) = substr( $_, 9 );
- $borrower{$key} = $cgi->param($_);
+ $borrower{$key} = $scrubber->scrub( $cgi->param($_) );
}
}