From 93e3f0411f7ee696ca12c1e48ca4a12f752505ce Mon Sep 17 00:00:00 2001
From: tipaul <tipaul>
Date: Wed, 8 Dec 2004 10:11:51 +0000
Subject: [PATCH] fix for "marc upload fail silently" (from MJRay)

---
 C4/Breeding.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/C4/Breeding.pm b/C4/Breeding.pm
index f2029acda4..4e17bb0c94 100644
--- a/C4/Breeding.pm
+++ b/C4/Breeding.pm
@@ -73,7 +73,7 @@ where isbn=? and title=?");
 	for (my $i=0;$i<=$#marcarray;$i++) {
 		my $marcrecord = MARC::File::USMARC::decode($marcarray[$i]."\x1D");
 		my @warnings = $marcrecord->warnings();
-		if (ref($marcrecord) eq undef) {
+		if (scalar($marcrecord->fields()) == 0) {
 			$notmarcrecord++;
 		} else {
 			my $oldbiblio = MARCmarc2koha($dbh,$marcrecord,'');
-- 
2.39.5