|
Lines 575-583
sub DelUnchangedFields {
Link Here
|
| 575 |
# get the hidden fields so we don't obliterate them should they have data patrons aren't allowed to modify |
575 |
# get the hidden fields so we don't obliterate them should they have data patrons aren't allowed to modify |
| 576 |
my $hidden_fields = GetHiddenFields($mandatory, 'edit'); |
576 |
my $hidden_fields = GetHiddenFields($mandatory, 'edit'); |
| 577 |
|
577 |
|
| 578 |
|
|
|
| 579 |
foreach my $key ( keys %new_data ) { |
578 |
foreach my $key ( keys %new_data ) { |
| 580 |
next if ( ($new_data{$key} || $current_data->{$key}) && ( $new_data{$key} ne $current_data->{$key} ) && !($hidden_fields->{$key}) ); |
579 |
next |
|
|
580 |
if ( $new_data{$key} || $current_data->{$key} ) |
| 581 |
&& $new_data{$key} ne $current_data->{$key} |
| 582 |
&& !$hidden_fields->{$key}; |
| 581 |
delete $new_data{$key}; |
583 |
delete $new_data{$key}; |
| 582 |
} |
584 |
} |
| 583 |
|
585 |
|
| 584 |
- |
|
|