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

[svn at svn.open-ils.org]

Author: erickson
Date: 2009-03-06 16:07:19 -0500 (Fri, 06 Mar 2009)
New Revision: 12454

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm
Log:
return fleshed circ object in damaged event

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm	2009-03-06 20:50:29 UTC (rev 12453)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm	2009-03-06 21:07:19 UTC (rev 12454)
@@ -952,7 +952,6 @@
 
     my $copy_price = ($charge_price) ? $U->get_copy_price($e, $copy) : 0;
     my $total = $copy_price + $proc_fee;
-    my $apply = $args->{apply_fines};
 
     if($apply) {
         
@@ -974,7 +973,11 @@
 
     } else {
         return OpenILS::Event->new('DAMAGE_CHARGE', 
-            payload => {usr => $circ->usr->id, charge => $total});
+            payload => {
+                circ => $circ,
+                charge => $total
+            }
+        );
     }
 }