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

(-)a/opac/opac-memberentry.pl (-3 / +5 lines)
Lines 452-459 sub DelUnchangedFields { Link Here
452
    my $current_data = GetMember( borrowernumber => $borrowernumber );
452
    my $current_data = GetMember( borrowernumber => $borrowernumber );
453
453
454
    foreach my $key ( keys %new_data ) {
454
    foreach my $key ( keys %new_data ) {
455
        if ( $current_data->{$key} eq $new_data{$key} ) {
455
        if ( defined $new_data{ $key } &&
456
            delete $new_data{$key};
456
             defined $current_data->{$key} &&
457
             $current_data->{$key} eq $new_data{$key} ) {
458
459
            delete $new_data{ $key };
457
        }
460
        }
458
    }
461
    }
459
462
460
- 

Return to bug 18339