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

[Tumer Garip]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         dev_week
Changes by:     Tumer Garip <tgarip1957>        06/11/03 00:39:14

Modified files:
        C4             : Breeding.pm 

Log message:
        ImportBreeding routine returns the record ID (needed for the new z3950 )

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

Patches:
Index: Breeding.pm
===================================================================
RCS file: /sources/koha/koha/C4/Breeding.pm,v
retrieving revision 1.7.2.1
retrieving revision 1.7.2.1.2.1
diff -u -b -r1.7.2.1 -r1.7.2.1.2.1
--- Breeding.pm 18 Mar 2005 08:57:04 -0000      1.7.2.1
+++ Breeding.pm 3 Nov 2006 00:39:14 -0000       1.7.2.1.2.1
@@ -115,13 +115,14 @@
                                                $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);
+                                       $breedingid=$dbh->{'mysql_insertid'};
                                        }
                                        $imported++;
                                }
                        }
                }
        }
-       return ($notmarcrecord,$alreadyindb,$alreadyinfarm,$imported);
+       return 
($notmarcrecord,$alreadyindb,$alreadyinfarm,$imported,$breedingid);
 }