From dbb59b16379c0e7e827b56e444cdbaef02010845 Mon Sep 17 00:00:00 2001 From: erickson Date: Mon, 22 Dec 2008 18:57:20 +0000 Subject: [PATCH] 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 --- Open-ILS/src/perlmods/OpenILS/Application/PermaCrud.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/PermaCrud.pm b/Open-ILS/src/perlmods/OpenILS/Application/PermaCrud.pm index 621ecb86fa..2d3a1e8911 100644 --- 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; -- 2.11.0