From d49f75554708e98f188dc0a1587aa47b6fb1b80b Mon Sep 17 00:00:00 2001
From: miker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Mon, 6 Feb 2006 15:50:14 +0000
Subject: [PATCH] protecting against no rec_descriptor (pre-cat)

git-svn-id: svn://svn.open-ils.org/ILS/trunk@2976 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 .../perlmods/OpenILS/Application/Storage/Publisher/biblio.pm   | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/biblio.pm b/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/biblio.pm
index 4489ea39ac..f58b3f3ab8 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/biblio.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/biblio.pm
@@ -104,7 +104,8 @@ sub record_by_copy {
 	return undef unless ($rec);
 
 	my $r_fm = $rec->to_fieldmapper;
-	$r_fm->fixed_fields( $rec->record_descriptor->next->to_fieldmapper );
+	my $ff = $rec->record_descriptor->next;
+	$r_fm->fixed_fields( $ff->to_fieldmapper ) if ($ff);
 
 	return $r_fm;
 }
-- 
2.43.2