View | Details | Raw Unified | Return to bug 28935
Collapse All | Expand All

(-)a/members/memberentry.pl (-2 / +3 lines)
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
(-)a/opac/opac-memberentry.pl (-2 / +4 lines)
Lines 522-528 sub ParseCgiForBorrower { Link Here
522
    # Replace checkbox 'agreed' by datetime in gdpr_proc_consent
522
    # Replace checkbox 'agreed' by datetime in gdpr_proc_consent
523
    $borrower{gdpr_proc_consent} = dt_from_string if  $borrower{gdpr_proc_consent} && $borrower{gdpr_proc_consent} eq 'agreed';
523
    $borrower{gdpr_proc_consent} = dt_from_string if  $borrower{gdpr_proc_consent} && $borrower{gdpr_proc_consent} eq 'agreed';
524
524
525
    delete $borrower{flags};
525
    delete $borrower{$_} for qw/borrowernumber date_renewed debarred debarredcomment flags privacy privacy_guarantor_fines privacy_guarantor_checkouts checkprevcheckout updated_on lastseen lang login_attempts overdrive_auth_token anonymized/; # See also members/memberentry.pl
526
    delete $borrower{$_} for qw/dateenrolled dateexpiry borrowernotes opacnote sort1 sort2 sms_provider_id autorenew_checkouts gonenoaddress lost relationship/; # On OPAC only
527
    delete $borrower{$_} for split( /\s*\|\s*/, C4::Context->preference('PatronSelfRegistrationBorrowerUnwantedField') || q{} );
528
526
    return %borrower;
529
    return %borrower;
527
}
530
}
528
531
529
- 

Return to bug 28935