From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Wed, 2 Aug 2006 15:36:32 +0000 (+0000)
Subject: sanity check
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=27194f377dee10836eb387cb2ef82c57d00d07e6;p=Evergreen.git

sanity check


git-svn-id: svn://svn.open-ils.org/ILS/trunk@5224 dcc99617-32d9-48b4-a31d-7c20da2025e4
---

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();