@@ -, +, @@ data --------- -- attempting to edit after saving will demonstrate the spaces were trimmed. -- while there may be spaces before, after, and both initially, after saving and trying to edit again, there will not be. --- members/memberentry.pl | 3 +++ 1 file changed, 3 insertions(+) --- a/members/memberentry.pl +++ a/members/memberentry.pl @@ -176,6 +176,9 @@ if ( $op eq 'insert' || $op eq 'modify' || $op eq 'save' || $op eq 'duplicate' ) if (defined $input->param($key)) { $newdata{$key} = $input->param($key); $newdata{$key} =~ s/\"/"/g unless $key eq 'borrowernotes' or $key eq 'opacnote'; + if (defined $newdata{$key} && $newdata{$key} =~ /\S/) { + $newdata{$key} =~ s/^\s*|\s*$//g; # trim whitespace if non-whitespace present. + } } } --