flesh some data on the patron object returned from a checkin call

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

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm
index 5ece326..34b8071 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm
@@ -2492,6 +2492,21 @@ sub checkin_flesh_events {
         );
     }
 
+    if($self->patron) {
+        # flesh some patron fields before returning
+        $self->patron(
+            $self->editor->retrieve_actor_user([
+                $self->patron->id,
+                {
+                    flesh => 1,
+                    flesh_fields => {
+                        au => ['card', 'billing_address', 'mailing_address']
+                    }
+                }
+            ])
+        );
+    }
+
     for my $evt (@{$self->events}) {
 
         my $payload         = {};