[Koha-cvs] CVS: koha/C4 Biblio.pm,1.73,1.74

[Paul POULAIN]

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

Modified Files:
	Biblio.pm 
Log Message:
bugfix : misusing prepare & execute => now using prepare(?) and execute($var)

Index: Biblio.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Biblio.pm,v
retrieving revision 1.73
retrieving revision 1.74
diff -C2 -r1.73 -r1.74
*** Biblio.pm	28 Nov 2003 09:45:25 -0000	1.73
--- Biblio.pm	28 Nov 2003 09:48:33 -0000	1.74
***************
*** 1266,1272 ****
  		$subject[$i] =~ s/^ //g;
  		$subject[$i] =~ s/ $//g;
! 		my $query = "select * from catalogueentry where entrytype = 's' and catalogueentry = '$subject[$i]'";
  		my $sth   = $dbh->prepare($query);
! 		$sth->execute;
  
  		if (my $data = $sth->fetchrow_hashref) {
--- 1266,1272 ----
  		$subject[$i] =~ s/^ //g;
  		$subject[$i] =~ s/ $//g;
! 		my $query = "select * from catalogueentry where entrytype = 's' and catalogueentry = ?";
  		my $sth   = $dbh->prepare($query);
! 		$sth->execute($subject[$i]);
  
  		if (my $data = $sth->fetchrow_hashref) {
***************
*** 1275,1289 ****
  				# subject not in aut, chosen to force anway
  				# so insert into cataloguentry so its in auth file
! 				$query = "Insert into catalogueentry (entrytype,catalogueentry) values ('s','$subject[$i]')";
  				my $sth2 = $dbh->prepare($query);
  
! 				$sth2->execute;
  				$sth2->finish;
  			} else {
  				$error = "$subject[$i]\n does not exist in the subject authority file";
! 				$query = "Select * from catalogueentry where entrytype = 's' and (catalogueentry like '$subject[$i] %'
! 									or catalogueentry like '% $subject[$i] %' or catalogueentry like '% $subject[$i]')";
  				my $sth2 = $dbh->prepare($query);
! 				$sth2->execute;
  				while (my $data = $sth2->fetchrow_hashref) {
  					$error .= "<br>$data->{'catalogueentry'}";
--- 1275,1289 ----
  				# subject not in aut, chosen to force anway
  				# so insert into cataloguentry so its in auth file
! 				$query = "Insert into catalogueentry (entrytype,catalogueentry) values ('s',?)";
  				my $sth2 = $dbh->prepare($query);
  
! 				$sth2->execute($subject[$i]);
  				$sth2->finish;
  			} else {
  				$error = "$subject[$i]\n does not exist in the subject authority file";
! 				$query = "Select * from catalogueentry where entrytype = 's' and (catalogueentry like ?
! 									or catalogueentry like ? or catalogueentry like ?)";
  				my $sth2 = $dbh->prepare($query);
! 				$sth2->execute("$subject[$i] %","% $subject[$i] %","% $subject[$i]");
  				while (my $data = $sth2->fetchrow_hashref) {
  					$error .= "<br>$data->{'catalogueentry'}";
***************
*** 1295,1301 ****
  	} # else
  	if ($error eq '') {
! 		my $query = "Delete from bibliosubject where biblionumber = $bibnum";
  		my $sth   = $dbh->prepare($query);
! 		$sth->execute;
  		$sth->finish;
  		$sth = $dbh->prepare("Insert into bibliosubject values (?,?)");
--- 1295,1301 ----
  	} # else
  	if ($error eq '') {
! 		my $query = "Delete from bibliosubject where biblionumber = ?";
  		my $sth   = $dbh->prepare($query);
! 		$sth->execute($bibnum);
  		$sth->finish;
  		$sth = $dbh->prepare("Insert into bibliosubject values (?,?)");
***************
*** 2218,2221 ****
--- 2218,2224 ----
  # $Id$
  # $Log$
+ # Revision 1.74  2003/11/28 09:48:33  tipaul
+ # bugfix : misusing prepare & execute => now using prepare(?) and execute($var)
+ #
  # Revision 1.73  2003/11/28 09:45:25  tipaul
  # bugfix for iso2709 file import in the "notforloan" field.