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

[svn at svn.open-ils.org]

Author: erickson
Date: 2009-03-26 14:35:00 -0400 (Thu, 26 Mar 2009)
New Revision: 12694

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
Log:
flesh copy objects on circ and hold events

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm	2009-03-26 18:34:33 UTC (rev 12693)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm	2009-03-26 18:35:00 UTC (rev 12694)
@@ -3215,6 +3215,16 @@
 
     while(my $resp = $req->recv) {
         my $val = $resp->content;
+        my $tgt = $val->target;
+
+        if($obj_type eq 'circ') {
+            $tgt->target_copy($e->retrieve_asset_copy($tgt->target_copy));
+
+        } elsif($obj_type eq 'ahr') {
+            $tgt->current_copy($e->retrieve_asset_copy($tgt->current_copy))
+                if $tgt->current_copy;
+        }
+
         $conn->respond($val) if $val;
     }