[Koha-cvs] CVS: koha insertdata.pl,1.14,1.15

[Paul POULAIN]

Update of /cvsroot/koha/koha
In directory sc8-pr-cvs1:/tmp/cvs-serv17156

Modified Files:
        insertdata.pl 
Log Message:
fix for #229

Index: insertdata.pl
===================================================================
RCS file: /cvsroot/koha/koha/insertdata.pl,v
retrieving revision 1.14
retrieving revision 1.15
diff -C2 -r1.14 -r1.15
*** insertdata.pl       4 Apr 2003 08:46:38 -0000       1.14
--- insertdata.pl       8 Apr 2003 11:30:55 -0000       1.15
***************
*** 52,57 ****
  $sth->execute;
  if (my $data=$sth->fetchrow_hashref){
!   $data{'dateofbirth'}=format_date($data{'dateofbirth'});
!   $data{'joining'}=format_date($data{'joining'});
    $query="update borrowers set 
title='$data{'title'}',expiry='$data{'expiry'}',
    
cardnumber='$data{'cardnumber'}',sex='$data{'sex'}',ethnotes='$data{'ethnicnotes'}',
--- 52,57 ----
  $sth->execute;
  if (my $data=$sth->fetchrow_hashref){
!   $data{'dateofbirth'}=format_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'}',
***************
*** 68,73 ****
  
  }else{
!   $data{'dateofbirth'}=format_date($data{'dateofbirth'});
!   $data{'joining'}=format_date($data{'joining'});
    $query="insert into borrowers 
(title,expiry,cardnumber,sex,ethnotes,streetaddress,faxnumber,
    
firstname,altnotes,dateofbirth,contactname,emailaddress,textmessaging,dateenrolled,streetcity,
--- 68,73 ----
  
  }else{
!   $data{'dateofbirth'}=format_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,