[open-ils-commits] r11649 - trunk/Open-ILS/src/perlmods/OpenILS/Application

[svn at svn.open-ils.org]

Author: erickson
Date: 2008-12-22 13:57:20 -0500 (Mon, 22 Dec 2008)
New Revision: 11649

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/PermaCrud.pm
Log:
if the caller passes in an identifier, make sure it points to an actual object

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/PermaCrud.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/PermaCrud.pm	2008-12-22 18:53:37 UTC (rev 11648)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/PermaCrud.pm	2008-12-22 18:57:20 UTC (rev 11649)
@@ -116,7 +116,7 @@
     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;