@@ -, +, @@ --- C4/Members.pm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) --- a/C4/Members.pm +++ a/C4/Members.pm @@ -358,7 +358,8 @@ sub ModMember { # trim whitespace from data which has some non-whitespace in it. foreach my $field_name (keys(%data)) { - if ( defined $data{$field_name} && $data{$field_name} =~ /\S/ ) { + if ( defined $data{$field_name} && $data{$field_name} =~ /\S/ + && !ref($data{$field_name}) ) { $data{$field_name} =~ s/^\s*|\s*$//g; } } @@ -452,7 +453,8 @@ sub AddMember { # trim whitespace from data which has some non-whitespace in it. foreach my $field_name (keys(%data)) { - if ( defined $data{$field_name} && $data{$field_name} =~ /\S/ ) { + if ( defined $data{$field_name} && $data{$field_name} =~ /\S/ + && !ref($data{$field_name}) ) { $data{$field_name} =~ s/^\s*|\s*$//g; } } --