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 |
- |
|
|