From 2f2da117622cc347514b6a4af93f6ed43b7d5769 Mon Sep 17 00:00:00 2001 From: erickson Date: Mon, 17 Oct 2005 20:41:52 +0000 Subject: [PATCH] added some sanity checking git-svn-id: svn://svn.open-ils.org/ILS/trunk@1916 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/Application/Actor.pm | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm b/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm index 0553d4c87f..a91fa7b82b 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm @@ -1186,11 +1186,15 @@ sub user_transactions { "open-ils.storage.direct.action.circulation.retrieve", $t->id ); + next unless $circ; + my $title = $apputils->simple_scalar_request( "open-ils.storage", "open-ils.storage.fleshed.biblio.record_entry.retrieve_by_copy", $circ->target_copy ); + next unless $title; + my $u = OpenILS::Utils::ModsParser->new(); $u->start_mods_batch($title->marc()); my $mods = $u->finish_mods_batch(); -- 2.43.2