if the caller passes in an identifier, make sure it points to an actual object

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

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/PermaCrud.pm b/Open-ILS/src/perlmods/OpenILS/Application/PermaCrud.pm
index 621ecb8..2d3a1e8 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/PermaCrud.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/PermaCrud.pm
@@ -116,7 +116,7 @@ sub CRUD_action_object_permcheck {
     if (!ref($obj)) {
         my $retrieve_method = 'retrieve_' . $fm_class;
         $retrieve_method =~ s/::/_/go;
-        $obj = $e->$retrieve_method( $obj );
+        $obj = $e->$retrieve_method( $obj ) or return $e->die_event;
     }
 
     (my $o_type = $fm_class) =~ s/::/./go;