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