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

[svn at svn.open-ils.org]

Author: erickson
Date: 2009-01-05 15:22:19 -0500 (Mon, 05 Jan 2009)
New Revision: 11744

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
Log:
return the ID of the newly created penalty object

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm	2009-01-05 19:39:42 UTC (rev 11743)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm	2009-01-05 20:22:19 UTC (rev 11744)
@@ -2752,7 +2752,7 @@
 
     $e->create_actor_user_standing_penalty($penalty) or return $e->die_event;
     $e->commit;
-    return 1;
+    return $penalty->id;
 }
 
 __PACKAGE__->register_method(