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