flesh copy objects on circ and hold events

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

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm b/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
index 456de11..2f97a88 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
@@ -3215,6 +3215,16 @@ sub user_events {
 
     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;
     }