@@ -, +, @@ modification - Both fields are defined, need to compare values, should delete if they match - One of the fields is defined, the other isn't, discrepancy, should not delete. - Both fields are not defined, they match, should delete. --- opac/opac-memberentry.pl | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) --- a/opac/opac-memberentry.pl +++ a/opac/opac-memberentry.pl @@ -452,8 +452,11 @@ sub DelUnchangedFields { my $current_data = GetMember( borrowernumber => $borrowernumber ); foreach my $key ( keys %new_data ) { - if ( $current_data->{$key} eq $new_data{$key} ) { - delete $new_data{$key}; + if ( defined $new_data{ $key } && + defined $current_data->{$key} && + $current_data->{$key} eq $new_data{$key} ) { + + delete $new_data{ $key }; } } --