@@ -, +, @@ Koha::Patron --- Koha/Patron.pm | 8 ++++---- members/memberentry.pl | 4 ---- 2 files changed, 4 insertions(+), 8 deletions(-) --- a/Koha/Patron.pm +++ a/Koha/Patron.pm @@ -193,11 +193,11 @@ sub store { $self->trim_whitespaces; - unless ( $self->in_storage ) { #AddMember + # Set surname to uppercase if uppercasesurname is true + $self->surname( uc($self->surname) ) + if C4::Context->preference("uppercasesurname"); - # Set surname to uppercase if uppercasesurname is true - $self->surname = uc($self->surname) - if C4::Context->preference("uppercasesurname"); + unless ( $self->in_storage ) { #AddMember # Generate a valid userid/login if needed $self->generate_userid --- a/members/memberentry.pl +++ a/members/memberentry.pl @@ -343,10 +343,6 @@ if ($op eq 'save' || $op eq 'insert'){ } } - if($newdata{surname} && C4::Context->preference('uppercasesurnames')) { - $newdata{'surname'} = uc($newdata{'surname'}); - } - if (C4::Context->preference("IndependentBranches")) { unless ( C4::Context->IsSuperLibrarian() ){ $debug and print STDERR " $newdata{'branchcode'} : ".$userenv->{flags}.":".$userenv->{branch}; --