[Koha-cvs] CVS: koha/C4 Breeding.pm,1.6,1.7

[Paul POULAIN]

Update of /cvsroot/koha/koha/C4
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7792/C4

Modified Files:
        Breeding.pm 
Log Message:
fix for "marc upload fail silently" (from MJRay)

Index: Breeding.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Breeding.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -r1.6 -r1.7
*** Breeding.pm 24 Nov 2004 15:55:31 -0000      1.6
--- Breeding.pm 8 Dec 2004 10:11:51 -0000       1.7
***************
*** 74,78 ****
                my $marcrecord = 
MARC::File::USMARC::decode($marcarray[$i]."\x1D");
                my @warnings = $marcrecord->warnings();
!               if (ref($marcrecord) eq undef) {
                        $notmarcrecord++;
                } else {
--- 74,78 ----
                my $marcrecord = 
MARC::File::USMARC::decode($marcarray[$i]."\x1D");
                my @warnings = $marcrecord->warnings();
!               if (scalar($marcrecord->fields()) == 0) {
                        $notmarcrecord++;
                } else {