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

[Paul POULAIN]

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

Modified Files:
      Tag: rel_2_0
	insertidata.pl 
Log Message:
fix for #671 (add institution member)
note member management code is really dirty & can be factorised, will be done in HEAD branch (2.1.x version)

Index: insertidata.pl
===================================================================
RCS file: /cvsroot/koha/koha/insertidata.pl,v
retrieving revision 1.5.2.1
retrieving revision 1.5.2.2
diff -C2 -r1.5.2.1 -r1.5.2.2
*** insertidata.pl	19 Dec 2003 02:11:38 -0000	1.5.2.1
--- insertidata.pl	22 Dec 2003 14:56:35 -0000	1.5.2.2
***************
*** 61,87 ****
  	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'});
  }
  
--- 61,103 ----
  	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'};
! 	# note for code reading : 5 on each line
! 	$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(),?,?,
! 			?,?,?,?,?,
! 			?,?,?,?,?,
! 			?,?,?,?,?,
! 			?,?
! 			)");
! 	$sth2->execute('',				$data{'expiry'},			$data{'cardnumber_institution'},	'',				$data{'ethnotes'},
! 				$data{'address'},	$data{'faxnumber'},		$surname,					$data{'altnotes'},	'',
! 				$data{'contactname'},$data{'emailaddress'},	$data{'streetcity'},			$data{'altrelationship'}, # only 4 because of now()
! 				$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'});
  }