protecting against no rec_descriptor (pre-cat)
authormiker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Mon, 6 Feb 2006 15:50:14 +0000 (15:50 +0000)
committermiker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Mon, 6 Feb 2006 15:50:14 +0000 (15:50 +0000)
git-svn-id: svn://svn.open-ils.org/ILS/trunk@2976 dcc99617-32d9-48b4-a31d-7c20da2025e4

Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/biblio.pm

index 4489ea3..f58b3f3 100644 (file)
@@ -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;
 }