@@ -, +, @@ syspref --- Koha/Patron.pm | 4 ++++ 1 file changed, 4 insertions(+) --- a/Koha/Patron.pm +++ a/Koha/Patron.pm @@ -195,6 +195,10 @@ sub store { unless ( $self->in_storage ) { #AddMember + # Set surname to uppercase if uppercasesurname is true + $self->surname = uc($self->surname) + if C4::Context->preference("uppercasesurname"); + # Generate a valid userid/login if needed $self->generate_userid if not $self->userid or not $self->has_valid_userid; --