Fetch penalties to alert staff that patron may have a circ-blocking issue

Signed-off-by: Mike Rylander <mrylander@gmail.com>

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Curbside.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Curbside.pm
index 717008a..606a917 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Curbside.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Curbside.pm
@@ -237,7 +237,7 @@ sub fetch_arrived {
     },{
         ($limit  ? (limit  => $limit) : ()),
         ($offset ? (offset => $offset) : ()),
-        flesh => 2, flesh_fields => {acsp => ['patron'], au => ['card']},
+        flesh => 2, flesh_fields => {acsp => ['patron'], au => ['card','standing_penalties']},
         order_by => { acsp => 'arrival' }
     }]);
 
@@ -324,7 +324,7 @@ sub fetch_staged {
     },{
         ($limit  ? (limit  => $limit) : ()),
         ($offset ? (offset => $offset) : ()),
-        flesh => 2, flesh_fields => {acsp => ['patron'], au => ['card']},
+        flesh => 2, flesh_fields => {acsp => ['patron'], au => ['card','standing_penalties']},
         order_by => { acsp => 'slot' }
     }]);
 
@@ -419,7 +419,7 @@ sub fetch_to_be_staged {
     },{
         ($limit  ? (limit  => $limit) : ()),
         ($offset ? (offset => $offset) : ()),
-        flesh => 2, flesh_fields => {acsp => ['patron'], au => ['card']},
+        flesh => 2, flesh_fields => {acsp => ['patron'], au => ['card','standing_penalties']},
         order_by => { acsp => 'slot' }
     }]);