[open-ils-commits] r10952 - branches/rel_1_4/Open-ILS/src/perlmods/OpenILS/Application/Circ

[svn at svn.open-ils.org]

Author: erickson
Date: 2008-10-28 20:09:10 -0400 (Tue, 28 Oct 2008)
New Revision: 10952

Modified:
   branches/rel_1_4/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm
Log:
returning copy in payload of fee/deposit required events

Modified: branches/rel_1_4/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm
===================================================================
--- branches/rel_1_4/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm	2008-10-28 22:53:53 UTC (rev 10951)
+++ branches/rel_1_4/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm	2008-10-29 00:09:10 UTC (rev 10952)
@@ -688,9 +688,9 @@
 
 sub check_item_deposit_events {
     my $self = shift;
-    $self->push_events(OpenILS::Event->new('ITEM_DEPOSIT_REQUIRED')) 
+    $self->push_events(OpenILS::Event->new('ITEM_DEPOSIT_REQUIRED', payload => $self->copy)) 
         if $self->is_deposit and not $self->is_deposit_exempt;
-    $self->push_events(OpenILS::Event->new('ITEM_RENTAL_FEE_REQUIRED')) 
+    $self->push_events(OpenILS::Event->new('ITEM_RENTAL_FEE_REQUIRED', payload => $self->copy)) 
         if $self->is_rental and not $self->is_rental_exempt;
 }