From 86995f1e06e8c1ed4c6edb0e43a3d23ade1882db Mon Sep 17 00:00:00 2001 From: miker Date: Mon, 2 Jan 2006 04:45:46 +0000 Subject: [PATCH] protecting against non-existant DB items git-svn-id: svn://svn.open-ils.org/ILS/trunk@2584 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- .../src/perlmods/OpenILS/Application/Storage/Publisher/asset.pm | 1 + .../perlmods/OpenILS/Application/Storage/Publisher/biblio.pm | 2 ++ 2 files changed, 3 insertions(+) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/asset.pm b/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/asset.pm index a0995d88a8..80a32a09f1 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/asset.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/asset.pm @@ -251,6 +251,7 @@ sub fleshed_copy { for my $id ( @ids ) { next unless $id; my $cp = asset::copy->retrieve($id); + next unless $cp; my $cp_fm = $cp->to_fieldmapper; $cp_fm->circ_lib( $cp->circ_lib->to_fieldmapper ); 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 6aef206dfa..87a1656e4b 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/biblio.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/biblio.pm @@ -101,6 +101,8 @@ sub record_by_copy { SQL my $rec = biblio::record_entry->retrieve( $r ); + return undef unless ($rec) + my $r_fm = $rec->to_fieldmapper; $r_fm->fixed_fields( $rec->record_descriptor->next->to_fieldmapper ); -- 2.43.2