[open-ils-commits] r15279 - branches/rel_1_6/Open-ILS/src/perlmods/OpenILS/Utils (erickson)

[svn at svn.open-ils.org]

Author: erickson
Date: 2010-01-08 09:21:32 -0500 (Fri, 08 Jan 2010)
New Revision: 15279

Modified:
   branches/rel_1_6/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: branches/rel_1_6/Open-ILS/src/perlmods/OpenILS/Utils/Penalty.pm
===================================================================
--- branches/rel_1_6/Open-ILS/src/perlmods/OpenILS/Utils/Penalty.pm	2010-01-08 14:20:45 UTC (rev 15278)
+++ branches/rel_1_6/Open-ILS/src/perlmods/OpenILS/Utils/Penalty.pm	2010-01-08 14:21:32 UTC (rev 15279)
@@ -54,7 +54,7 @@
             $ses->request(
                 'open-ils.trigger.event.autocreate',
                 'penalty.' . $csp_obj->name,
-                $user,
+                $pen,
                 $pen->org_unit
             );
         }