[Koha-cvs] CVS: koha insertdata.pl,1.11,1.12
Mike Hansen
wolfpac444 at users.sourceforge.net
Wed Mar 26 05:09:09 CET 2003
Update of /cvsroot/koha/koha
In directory sc8-pr-cvs1:/tmp/cvs-serv8800/koha
Modified Files:
insertdata.pl
Log Message:
Hmm.. having problems getting my changes to Date.pm saved...
Index: insertdata.pl
===================================================================
RCS file: /cvsroot/koha/koha/insertdata.pl,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -r1.11 -r1.12
*** insertdata.pl 25 Mar 2003 06:05:13 -0000 1.11
--- insertdata.pl 26 Mar 2003 04:09:06 -0000 1.12
***************
*** 28,31 ****
--- 28,32 ----
use C4::Search;
use Date::Manip;
+ use C4::Date;
use strict;
***************
*** 51,54 ****
--- 52,57 ----
$sth->execute;
if (my $data=$sth->fetchrow_hashref){
+ $data{'dateofbirth'}=fomat_date_in_iso($data{'dateofbirth'});
+ $data{'joining'}=format_date_in_iso($data{'joining'});
$query="update borrowers set title='$data{'title'}',expiry='$data{'expiry'}',
cardnumber='$data{'cardnumber'}',sex='$data{'sex'}',ethnotes='$data{'ethnicnotes'}',
***************
*** 65,72 ****
}else{
! $data{'dateofbirth'}=ParseDate($data{'dateofbirth'});
! $data{'dateofbirth'}=UnixDate($data{'dateofbirth'},'%Y-%m-%d');
! $data{'joining'}=ParseDate($data{'joining'});
! $data{'joining'}=UnixDate($data{'joining'},'%Y-%m-%d');
$query="insert into borrowers (title,expiry,cardnumber,sex,ethnotes,streetaddress,faxnumber,
firstname,altnotes,dateofbirth,contactname,emailaddress,textmessaging,dateenrolled,streetcity,
--- 68,73 ----
}else{
! $data{'dateofbirth'}=fomat_date_in_iso($data{'dateofbirth'});
! $data{'joining'}=format_date_in_iso($data{'joining'});
$query="insert into borrowers (title,expiry,cardnumber,sex,ethnotes,streetaddress,faxnumber,
firstname,altnotes,dateofbirth,contactname,emailaddress,textmessaging,dateenrolled,streetcity,
More information about the Koha-cvs
mailing list