[Koha-cvs] CVS: koha insertdata.pl,1.11,1.12

[Mike Hansen]

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,