Bug 5201 Patron surname dropped

Signed-off-by: Ian Walls <ian.walls@bywatersolutions.com>
Signed-off-by: Galen Charlton <gmcharlt@gmail.com>

diff --git a/members/memberentry.pl b/members/memberentry.pl
index 6ec6d8e..eacb2ff 100755 (executable)
--- a/members/memberentry.pl
+++ b/members/memberentry.pl
@@ -247,7 +247,7 @@ if ($op eq 'save' || $op eq 'insert'){
     }
   }
   
-    if(C4::Context->preference('uppercasesurnames')) {
+    if($newdata{surname} && C4::Context->preference('uppercasesurnames')) {
         $newdata{'surname'} = uc($newdata{'surname'});
     }