Lines 215-221
if ( $op eq 'insert' || $op eq 'modify' || $op eq 'save' || $op eq 'duplicate' )
Link Here
|
215 |
# remove keys from %newdata that is not part of patron's attributes |
215 |
# remove keys from %newdata that is not part of patron's attributes |
216 |
{ |
216 |
{ |
217 |
my @keys_to_delete = ( |
217 |
my @keys_to_delete = ( |
218 |
qr/^flags$/, |
218 |
qr/^(borrowernumber|date_renewed|debarred|debarredcomment|flags|privacy|privacy_guarantor_fines|privacy_guarantor_checkouts|checkprevcheckout|updated_on|lastseen|lang|login_attempts|overdrive_auth_token|anonymized)$/, # Bug 28935 |
219 |
qr/^BorrowerMandatoryField$/, |
219 |
qr/^BorrowerMandatoryField$/, |
220 |
qr/^category_type$/, |
220 |
qr/^category_type$/, |
221 |
qr/^check_member$/, |
221 |
qr/^check_member$/, |
Lines 242-247
if ( $op eq 'insert' || $op eq 'modify' || $op eq 'save' || $op eq 'duplicate' )
Link Here
|
242 |
qr/^guarantor_surname$/, |
242 |
qr/^guarantor_surname$/, |
243 |
qr/^delete_guarantor$/, |
243 |
qr/^delete_guarantor$/, |
244 |
); |
244 |
); |
|
|
245 |
push @keys_to_delete, map { qr/^$_$/ } split( /\s*\|\s*/, C4::Context->preference('PatronSelfRegistrationBorrowerUnwantedField') || q{} ); |
245 |
for my $regexp (@keys_to_delete) { |
246 |
for my $regexp (@keys_to_delete) { |
246 |
for (keys %newdata) { |
247 |
for (keys %newdata) { |
247 |
delete($newdata{$_}) if /$regexp/; |
248 |
delete($newdata{$_}) if /$regexp/; |
Lines 323-329
if ($op eq 'save' || $op eq 'insert'){
Link Here
|
323 |
# If the cardnumber is blank, treat it as null. |
324 |
# If the cardnumber is blank, treat it as null. |
324 |
$newdata{'cardnumber'} = undef if $newdata{'cardnumber'} =~ /^\s*$/; |
325 |
$newdata{'cardnumber'} = undef if $newdata{'cardnumber'} =~ /^\s*$/; |
325 |
|
326 |
|
326 |
if (my $error_code = checkcardnumber($newdata{cardnumber},$newdata{borrowernumber})){ |
327 |
if (my $error_code = checkcardnumber( $newdata{cardnumber}, $borrowernumber )){ |
327 |
push @errors, $error_code == 1 |
328 |
push @errors, $error_code == 1 |
328 |
? 'ERROR_cardnumber_already_exists' |
329 |
? 'ERROR_cardnumber_already_exists' |
329 |
: $error_code == 2 |
330 |
: $error_code == 2 |