[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;