From d4f69745814a70ae80e3c117a0e9f1bc0e18ec3d Mon Sep 17 00:00:00 2001 From: Garry Collum Date: Sat, 3 Jul 2010 09:17:01 -0400 Subject: [PATCH] Bug 2725: Fixes uppercasesurnames preference. Signed-off-by: Galen Charlton --- members/memberentry.pl | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/members/memberentry.pl b/members/memberentry.pl index 5cb4d723ad..c121460040 100755 --- a/members/memberentry.pl +++ b/members/memberentry.pl @@ -246,6 +246,11 @@ if ($op eq 'save' || $op eq 'insert'){ $template->param('ERROR_age_limitations' => "$low to $high"); } } + + if(C4::Context->preference('uppercasesurnames')) { + $newdata{'surname'} = uc($newdata{'surname'}); + } + if (C4::Context->preference("IndependantBranches")) { if ($userenv && $userenv->{flags} % 2 != 1){ $debug and print STDERR " $newdata{'branchcode'} : ".$userenv->{flags}.":".$userenv->{branch}; -- 2.39.5