[Koha-cvs] koha/C4 Breeding.pm [dev_week]

[Ryan Higgins]

CVSROOT:	/sources/koha
Module name:	koha
Branch:		dev_week
Changes by:	Ryan Higgins <rych>	07/01/29 23:48:54

Modified files:
	C4             : Breeding.pm 

Log message:
	potential fix on bug 1024 - import fails if missing isbn / issn

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Breeding.pm?cvsroot=koha&only_with_tag=dev_week&r1=1.7.2.1.2.2&r2=1.7.2.1.2.3

Patches:
Index: Breeding.pm
===================================================================
RCS file: /sources/koha/koha/C4/Breeding.pm,v
retrieving revision 1.7.2.1.2.2
retrieving revision 1.7.2.1.2.3
diff -u -b -r1.7.2.1.2.2 -r1.7.2.1.2.3
--- Breeding.pm	3 Nov 2006 00:52:09 -0000	1.7.2.1.2.2
+++ Breeding.pm	29 Jan 2007 23:48:54 -0000	1.7.2.1.2.3
@@ -72,6 +72,7 @@
 	my $notmarcrecord = 0;
         my $breedingid;
 	for (my $i=0;$i<=$#marcarray;$i++) {
+		$breedingid=0;
 		my $marcrecord = MARC::File::USMARC::decode($marcarray[$i]."\x1D");
 		my @warnings = $marcrecord->warnings();
 		if (scalar($marcrecord->fields()) == 0) {
@@ -113,9 +114,9 @@
 					my $recoded;
 					$recoded = $marcrecord->as_usmarc();
 					if ($breedingid && $overwrite_biblio eq 1) {
-						$replacesql ->execute($filename,substr($oldbiblio->{isbn}.$oldbiblio->{issn},0,10),$oldbiblio->{title},$oldbiblio->{author},$recoded,$encoding,$z3950random,$breedingid);
+						$replacesql->execute($filename,substr($oldbiblio->{isbn}.$oldbiblio->{issn},0,10),$oldbiblio->{title},$oldbiblio->{author},$recoded,$encoding,$z3950random,$breedingid);
 					} else {
-						$insertsql ->execute($filename,substr($oldbiblio->{isbn}.$oldbiblio->{issn},0,10),$oldbiblio->{title},$oldbiblio->{author},$recoded,$encoding,$z3950random);
+						$insertsql >execute($filename,substr($oldbiblio->{isbn}.$oldbiblio->{issn},0,10),$oldbiblio->{title},$oldbiblio->{author},$recoded,$encoding,$z3950random);
 					$breedingid=$dbh->{'mysql_insertid'};
 					}
 					$imported++;
@@ -165,7 +166,8 @@
 			push(@bind,"$isbn%");
 		}
 	}
-	$sth   = $dbh->prepare($query);
+#warn "breedquery: $query";
+$sth   = $dbh->prepare($query);
 	$sth->execute(@bind);
 	while (my $data = $sth->fetchrow_hashref) {
 			$results[$count] = $data;