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