From 27194f377dee10836eb387cb2ef82c57d00d07e6 Mon Sep 17 00:00:00 2001 From: erickson Date: Wed, 2 Aug 2006 15:36:32 +0000 Subject: [PATCH] sanity check git-svn-id: svn://svn.open-ils.org/ILS/trunk@5224 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm | 1 + 1 file changed, 1 insertion(+) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm b/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm index 2ced55959e..f753b8166f 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm @@ -463,6 +463,7 @@ sub fetch_record_by_copy { # turns a record object into an mvr (mods) object sub record_to_mvr { my( $self, $record ) = @_; + return undef unless $record and $record->marc; my $u = OpenILS::Utils::ModsParser->new(); $u->start_mods_batch( $record->marc ); my $mods = $u->finish_mods_batch(); -- 2.11.0