added some sanity checking

[working/Evergreen.git] / Open-ILS / src / perlmods / OpenILS / Application / Actor.pm

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm b/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
index 0553d4c..a91fa7b 100644 (file)
--- 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 );
 
                                "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 );
 
                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();
                my $u = OpenILS::Utils::ModsParser->new();
                $u->start_mods_batch($title->marc());
                my $mods = $u->finish_mods_batch();