[open-ils-commits] r15278 - trunk/Open-ILS/src/perlmods/OpenILS/Utils (erickson)

[svn at svn.open-ils.org]

Author: erickson
Date: 2010-01-08 09:20:45 -0500 (Fri, 08 Jan 2010)
New Revision: 15278

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Utils/Penalty.pm
Log:
A/T penalty.* hooks now have a core_type of 'ausp', not 'au'.  pass the ausp (user penalty) object during event autocreate instead of the user

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Utils/Penalty.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Utils/Penalty.pm	2010-01-07 23:09:22 UTC (rev 15277)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Utils/Penalty.pm	2010-01-08 14:20:45 UTC (rev 15278)
@@ -54,7 +54,7 @@
             $ses->request(
                 'open-ils.trigger.event.autocreate',
                 'penalty.' . $csp_obj->name,
-                $user,
+                $pen,
                 $pen->org_unit
             );
         }