Bug 2725: Fixes uppercasesurnames preference.

Signed-off-by: Galen Charlton <gmcharlt@gmail.com>

diff --git a/members/memberentry.pl b/members/memberentry.pl
index 5cb4d72..c121460 100755 (executable)
--- 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};