From e5fddea9413cf8498064386baf20d1673048b44b Mon Sep 17 00:00:00 2001
From: tipaul <tipaul>
Date: Mon, 24 Nov 2003 17:40:14 +0000
Subject: [PATCH] fix for #385

---
 C4/Biblio.pm | 19 +++++++++++++------
 1 file changed, 13 insertions(+), 6 deletions(-)

diff --git a/C4/Biblio.pm b/C4/Biblio.pm
index 556513845c..b79d6e35ae 100644
--- a/C4/Biblio.pm
+++ b/C4/Biblio.pm
@@ -442,12 +442,16 @@ sub MARCgetbiblio {
 		}
 	}
 	# the last has not been included inside the loop... do it now !
-	if ($prevtag <10) {
- 		$record->add_fields($prevtag,$prevvalue);
- 	} else {
-#  		my $field = MARC::Field->new( $prevtag, "", "", %subfieldlist);
- 		$record->add_fields($field);
- 	}
+	if ($prevtag ne "XXX") { # check that we have found something. Otherwise, prevtag is still XXX and we
+						# must return an empty record, not make MARC::Record fail because we try to
+						# create a record with XXX as field :-(
+		if ($prevtag <10) {
+			$record->add_fields($prevtag,$prevvalue);
+		} else {
+	#  		my $field = MARC::Field->new( $prevtag, "", "", %subfieldlist);
+			$record->add_fields($field);
+		}
+	}
 	return $record;
 }
 sub MARCgetitem {
@@ -2209,6 +2213,9 @@ Paul POULAIN paul.poulain@free.fr
 
 # $Id$
 # $Log$
+# Revision 1.72  2003/11/24 17:40:14  tipaul
+# fix for #385
+#
 # Revision 1.71  2003/11/24 16:28:49  tipaul
 # biblio & item deletion now works fine in MARC editor.
 # Stores deleted biblio/item in the marc field of the deletedbiblio/deleteditem table.
-- 
2.39.2