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

[Chris Cormack]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         dev_week
Changes by:     Chris Cormack <rangi>   06/11/03 00:52:09

Modified files:
        C4             : Breeding.pm 

Log message:
        Fixing little syntax error

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.1&r2=1.7.2.1.2.2

Patches:
Index: Breeding.pm
===================================================================
RCS file: /sources/koha/koha/C4/Breeding.pm,v
retrieving revision 1.7.2.1.2.1
retrieving revision 1.7.2.1.2.2
diff -u -b -r1.7.2.1.2.1 -r1.7.2.1.2.2
--- Breeding.pm 3 Nov 2006 00:39:14 -0000       1.7.2.1.2.1
+++ Breeding.pm 3 Nov 2006 00:52:09 -0000       1.7.2.1.2.2
@@ -70,6 +70,7 @@
        my $alreadyindb = 0;
        my $alreadyinfarm = 0;
        my $notmarcrecord = 0;
+        my $breedingid;
        for (my $i=0;$i<=$#marcarray;$i++) {
                my $marcrecord = 
MARC::File::USMARC::decode($marcarray[$i]."\x1D");
                my @warnings = $marcrecord->warnings();
@@ -98,7 +99,7 @@
                                $alreadyindb++;
                        } else {
                                # search in breeding farm
-                               my $breedingid;
+
                                if ($oldbiblio->{isbn}) {
                                        
$searchbreeding->execute($oldbiblio->{isbn},$oldbiblio->{title});
                                        ($breedingid) = 
$searchbreeding->fetchrow;