return fleshed circ object in damaged event

git-svn-id: svn://svn.open-ils.org/ILS/trunk@12454 dcc99617-32d9-48b4-a31d-7c20da2025e4

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm b/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm
index cb805ed..b18727a 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm
@@ -952,7 +952,6 @@ sub handle_mark_damaged {
 
     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 @@ sub handle_mark_damaged {
 
     } else {
         return OpenILS::Event->new('DAMAGE_CHARGE', 
-            payload => {usr => $circ->usr->id, charge => $total});
+            payload => {
+                circ => $circ,
+                charge => $total
+            }
+        );
     }
 }