[Koha-cvs] CVS: koha insertidata.pl,1.5,1.5.2.1

[MJ Ray]

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

Modified Files:
      Tag: rel_2_0
	insertidata.pl 
Log Message:
DBI call fix for bug 662

Index: insertidata.pl
===================================================================
RCS file: /cvsroot/koha/koha/insertidata.pl,v
retrieving revision 1.5
retrieving revision 1.5.2.1
diff -C2 -r1.5 -r1.5.2.1
*** insertidata.pl	6 Jun 2003 10:00:52 -0000	1.5
--- insertidata.pl	19 Dec 2003 02:11:38 -0000	1.5.2.1
***************
*** 40,86 ****
  my $problems;
  my $env;
  foreach my $key (@names){
    $data{$key}=$input->param($key);
  }
  my $dbh = C4::Context->dbh;
! my $query="Select * from borrowers where borrowernumber=$data{'borrowernumber'}";
! my $sth=$dbh->prepare($query);
! $sth->execute;
  if (my $data2=$sth->fetchrow_hashref){
! 	$query="update borrowers set title='$data{'title'}',expiry='$data{'expiry'}',
! 	cardnumber='$data{'cardnumber_institution'}',sex='$data{'sex'}',ethnotes='$data{'ethnicnotes'}',
! 	streetaddress='$data{'address'}',faxnumber='$data{'faxnumber'}',firstname='$data{'firstname'}',
! 	altnotes='$data{'altnotes'}',dateofbirth='$data{'dateofbirth'}',contactname='$data{'contactname'}',
! 	emailaddress='$data{'emailaddress'}',dateenrolled='$data{'joining'}',streetcity='$data{'streetcity'}',
! 	altrelationship='$data{'altrelationship'}',othernames='$data{'othernames'}',phoneday='$data{'phoneday'}',
! 	city='$data{'city'}',area='$data{'area'}',phone='$data{'phone'}',
! 	borrowernotes='$data{'borrowernotes'}',altphone='$data{'altphone'}',surname='$data{'institution_name'}',
! 	initials='$data{'initials'}',physstreet='$data{'streetaddress'}',ethnicity='$data{'ethnicity'}',
! 	gonenoaddress='$data{'gna'}',lost='$data{'lost'}',debarred='$data{'debarred'}',
! 	textmessaging='$data{'textmessaging'}', branchcode = '$data{'branchcode'}',
! 	zipcode = '$data{'zipcode'}',homezipcode='$data{'homezipcode'}'
! 	where borrowernumber=$data{'borrowernumber'}";
  } else {
  	my $surname=$data{'institution_name'};
! 	$query="insert into borrowers (title,expiry,cardnumber,sex,ethnotes,streetaddress,faxnumber,
  	firstname,altnotes,dateofbirth,contactname,emailaddress,dateenrolled,streetcity,
  	altrelationship,othernames,phoneday,categorycode,city,area,phone,borrowernotes,altphone,surname,
  	initials,ethnicity,borrowernumber,guarantor,school,branchcode,zipcode,homezipcode)
! 	values ('','$data{'expiry'}','$data{'cardnumber_institution'}',
! 	'','$data{'ethnotes'}','$data{'address'}','$data{'faxnumber'}',
! 	'$data{'firstname'}','$data{'altnotes'}','','$data{'contactname'}',
! 	'$data{'emailaddress'}',
! 	now(),'$data{'streetcity'}','$data{'altrelationship'}','$data{'othernames'}',
! 	'$data{'phoneday'}','I','$data{'city'}','$data{'area'}','$data{'phone'}',
! 	'$data{'borrowernotes'}','$data{'altphone'}','$surname','$data{'initials'}',
! 	'$data{'ethnicity'}','$data{'borrowernumber'}','','','$data{'branchcode'}','$data{'zipcode'}','$data{'homezipcode'}')";
  }
  
- #print $query;
- my $sth2=$dbh->prepare($query);
- warn "==> $query";
- $sth2->execute;
  $sth2->finish;
! #$sth->finish;
  
  print $input->redirect("/cgi-bin/koha/moremember.pl?bornum=$data{'borrowernumber'}");
--- 40,91 ----
  my $problems;
  my $env;
+ my $sth2;
  foreach my $key (@names){
    $data{$key}=$input->param($key);
  }
  my $dbh = C4::Context->dbh;
! my $sth=$dbh->prepare("Select * from borrowers where borrowernumber=?");
! $sth->execute($data{'borrowernumber'});
  if (my $data2=$sth->fetchrow_hashref){
! 	$sth2=$dbh->prepare("update borrowers set title=?,expiry=?,
! 	cardnumber=?,sex=?,ethnotes=?,
! 	streetaddress=?,faxnumber=?,firstname=?,
! 	altnotes=?,dateofbirth=?,contactname=?,
! 	emailaddress=?,dateenrolled=?,streetcity=?,
! 	altrelationship=?,othernames=?,phoneday=?,
! 	city=?,area=?,phone=?,
! 	borrowernotes=?,altphone=?,surname=?,
! 	initials=?,physstreet=?,ethnicity=?,
! 	gonenoaddress=?,lost=?,debarred=?,
! 	textmessaging=?, branchcode = ?,
! 	zipcode = ?,homezipcode=?
! 	where borrowernumber=?");
! 	$sth2->execute($data{'title'},$data{'expiry'},$data{'cardnumber_institution'},$data{'sex'},$data{'ethnicnotes'},$data{'address'},$data{'faxnumber'},$data{'firstname'},$data{'altnotes'},$data{'dateofbirth'},$data{'contactname'},$data{'emailaddress'},$data{'joining'},$data{'streetcity'},$data{'altrelationship'},$data{'othernames'},$data{'phoneday'},$data{'city'},$data{'area'},$data{'phone'},$data{'borrowernotes'},$data{'altphone'},$data{'institution_name'},$data{'initials'},$data{'streetaddress'},$data{'ethnicity'},$data{'gna'},$data{'lost'},$data{'debarred'},$data{'textmessaging'},$data{'branchcode'},$data{'zipcode'},$data{'homezipcode'},$data{'borrowernumber'});
  } else {
  	my $surname=$data{'institution_name'};
! 	$sth2=$dbh->prepare("insert into borrowers (title,expiry,cardnumber,sex,ethnotes,streetaddress,faxnumber,
  	firstname,altnotes,dateofbirth,contactname,emailaddress,dateenrolled,streetcity,
  	altrelationship,othernames,phoneday,categorycode,city,area,phone,borrowernotes,altphone,surname,
  	initials,ethnicity,borrowernumber,guarantor,school,branchcode,zipcode,homezipcode)
! 	values ('',?,?,
! 	'',?,?,?,
! 	?,?,'',?,
! 	?,
! 	now(),?,?,?,
! 	?,'I',?,?,?,
! 	?,?,?,
! 	?,?,'','',?,?,?)");
! 	$sth2->execute($data{'expiry'},$data{'cardnumber_institution'},
! 	$data{'ethnotes'},$data{'address'},$data{'faxnumber'},
! 	$data{'firstname'},$data{'altnotes'},$data{'contactname'},
! 	$data{'emailaddress'},
! 	$data{'streetcity'},$data{'altrelationship'},$data{'othernames'},
! 	$data{'phoneday'},$data{'city'},$data{'area'},$data{'phone'},
! 	$data{'borrowernotes'},$data{'altphone'},$surname,$data{'initials'},
! 	$data{'ethnicity'},$data{'borrowernumber'},$data{'branchcode'},$data{'zipcode'},$data{'homezipcode'});
  }
  
  $sth2->finish;
! $sth->finish;
  
  print $input->redirect("/cgi-bin/koha/moremember.pl?bornum=$data{'borrowernumber'}");