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

[svn at svn.open-ils.org]

Author: erickson
Date: 2009-03-06 14:40:35 -0500 (Fri, 06 Mar 2009)
New Revision: 12447

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm
Log:
repaired damage charge event creation

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm	2009-03-06 19:26:17 UTC (rev 12446)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm	2009-03-06 19:40:35 UTC (rev 12447)
@@ -973,8 +973,8 @@
         return undef;
 
     } else {
-        return new OpenILS::Event->('DAMAGE_CHARGE', 
-            {usr => $circ->usr->id, charge => $total});
+        return OpenILS::Event->new('DAMAGE_CHARGE', 
+            usr => $circ->usr->id, charge => $total);
     }
 }