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

[svn at svn.open-ils.org]

Author: erickson
Date: 2008-10-27 10:22:45 -0400 (Mon, 27 Oct 2008)
New Revision: 10921

Modified:
   branches/rel_1_4/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm
Log:
returning copy location info on hold delay event

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-27 02:12:54 UTC (rev 10920)
+++ branches/rel_1_4/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm	2008-10-27 14:22:45 UTC (rev 10921)
@@ -1926,7 +1926,8 @@
         # see if this item is in a hold-capture-delay location
         my $location = $self->editor->retrieve_asset_copy_location($self->copy->location);
         if($U->is_true($location->hold_verify)) {
-            $self->bail_on_events(OpenILS::Event->new('HOLD_CAPTURE_DELAYED'));
+            $self->bail_on_events(
+                OpenILS::Event->new('HOLD_CAPTURE_DELAYED', copy_location => $location));
             return 1;
         }
     }