From: Jason Stephenson <jason@sigio.com>
Date: Sat, 13 Nov 2021 21:39:14 +0000 (-0500)
Subject: LP1883171&1940663: Flesh latest inventory after checkin
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=d9b54f3699b7113a7e2de468af6e9bbed782518e;p=working%2FEvergreen.git

LP1883171&1940663: Flesh latest inventory after checkin

The checkin screen expects to get the latest inventory back, so we
flesh it.

Signed-off-by: Jason Stephenson <jason@sigio.com>
---

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Circulate.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Circulate.pm
index 468c12f380..46595c1595 100644
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Circulate.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Circulate.pm
@@ -4006,6 +4006,18 @@ sub checkin_flesh_events {
         );
     }
 
+    # Flesh the latest inventory.
+    # NB: This survives the unflesh_copy below. Let's keep it that way.
+    my $alci = $self->editor->search_asset_latest_inventory([
+        {copy=>$self->copy->id},
+        {flesh => 1,
+         flesh_fields => {
+             alci => ['inventory_workstation']
+         }}]);
+    if ($alci && $alci->[0]) {
+        $self->copy->latest_inventory($alci->[0]);
+    }
+
     for my $evt (@{$self->events}) {
 
         my $payload         = {};