From d4f69745814a70ae80e3c117a0e9f1bc0e18ec3d Mon Sep 17 00:00:00 2001
From: Garry Collum <gcollum@gmail.com>
Date: Sat, 3 Jul 2010 09:17:01 -0400
Subject: [PATCH] Bug 2725: Fixes uppercasesurnames preference.

Signed-off-by: Galen Charlton <gmcharlt@gmail.com>
---
 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