[Koha-cvs] koha/members memberentry.pl [rel_3_0]

[Bruno Toumi]

CVSROOT:	/sources/koha
Module name:	koha
Branch:		rel_3_0
Changes by:	Bruno Toumi <btoumi>	07/01/03 16:18:47

Modified files:
	members        : memberentry.pl 

Log message:
	add function to format firstname field in borrowers module

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/members/memberentry.pl?cvsroot=koha&only_with_tag=rel_3_0&r1=1.38.2.21&r2=1.38.2.22

Patches:
Index: memberentry.pl
===================================================================
RCS file: /sources/koha/koha/members/memberentry.pl,v
retrieving revision 1.38.2.21
retrieving revision 1.38.2.22
diff -u -b -r1.38.2.21 -r1.38.2.22
--- memberentry.pl	22 Dec 2006 15:45:42 -0000	1.38.2.21
+++ memberentry.pl	3 Jan 2007 16:18:47 -0000	1.38.2.22
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $Id: memberentry.pl,v 1.38.2.21 2006/12/22 15:45:42 btoumi Exp $
+# $Id: memberentry.pl,v 1.38.2.22 2007/01/03 16:18:47 btoumi Exp $
 
 # Copyright 2006 SAN OUEST PROVENCE et Paul POULAIN
 #
@@ -464,7 +464,6 @@
         else {
             $step++;
         }
-
 	$template->param(
 		BorrowerMandatoryField => C4::Context->preference("BorrowerMandatoryField"),#field to test with javascript
 		category_type	=> $category_type,#to know the category type of the borrower
@@ -480,7 +479,7 @@
 		borrowernumber 	=> $borrowernumber,#register number
 		cardnumber	=> $data{'cardnumber'},
 		surname         => uc($data{'surname'}),
-		firstname       => ucfirst($data{'firstname'}),
+		firstname       => ucfirst(lc $data{'firstname'}),
 		title 		=> $data{'title'},
 		othernames	=> $data{'othernames'},
 		initials	=> $data{'initials'},
@@ -510,7 +509,7 @@
 		gonenoaddress 	=> $data{'gonenoaddress'}, 
 		lost 	=> $data{'lost'},
 		contactname     => uc($data{'contactname'}),
-		contactfirstname=> ucfirst($data{'contactfirstname'}),
+		contactfirstname=> ucfirst( lc $data{'contactfirstname'}),
 		"contacttitle_".$data{'contacttitle'} => "SELECTED" ,
 		contacttitle	=> $data{'contacttitle'},
 		guarantorid	=> $guarantorid,