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

(-)a/members/memberentry.pl (-2 / +1 lines)
Lines 235-241 if ( $op eq 'insert' || $op eq 'modify' || $op eq 'save' || $op eq 'duplicate' ) Link Here
235
        qr/^guarantor_surname$/,
235
        qr/^guarantor_surname$/,
236
        qr/^delete_guarantor$/,
236
        qr/^delete_guarantor$/,
237
    );
237
    );
238
    push @keys_to_delete, map { qr/^$_$/ } split( /\s*\|\s*/, C4::Context->preference('BorrowerUnwantedField') || q{} );
238
    push @keys_to_delete, map { qr/^$_$/ } grep { $_ ne 'dateexpiry' } split( /\s*\|\s*/, C4::Context->preference('BorrowerUnwantedField') || q{} );
239
    push @keys_to_delete, qr/^password_expiration_date$/ unless $CanUpdatePasswordExpiration;
239
    push @keys_to_delete, qr/^password_expiration_date$/ unless $CanUpdatePasswordExpiration;
240
    for my $regexp (@keys_to_delete) {
240
    for my $regexp (@keys_to_delete) {
241
        for (keys %newdata) {
241
        for (keys %newdata) {
242
- 

Return to bug 36321