[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,