From 1ee746d99e44309973943418fd2267fc4bb8cbd9 Mon Sep 17 00:00:00 2001
From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Mon, 24 Nov 2008 20:16:59 +0000
Subject: [PATCH] when fleshing a user, retrieve penalties ranged to the
 requestor's workstation org

git-svn-id: svn://svn.open-ils.org/ILS/trunk@11321 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 Open-ILS/src/perlmods/OpenILS/Application/Actor.pm | 37 +++++++++++++++-------
 1 file changed, 25 insertions(+), 12 deletions(-)

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm b/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
index 3b3d073fb2..e67ae83e1e 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
@@ -319,21 +319,14 @@ sub update_patron {
 	}
 
 	$apputils->commit_db_session($session);
-	my $fuser =  flesh_user($new_patron->id());
 
-	if( $opatron ) {
-		# Log the new and old patron for investigation
-		$logger->info("$user_session updating patron object. orig patron object = ".
-			OpenSRF::Utils::JSON->perl2JSON($opatron). " |||| new patron = ".OpenSRF::Utils::JSON->perl2JSON($fuser));
-	}
-
-
-	return $fuser;
+	return flesh_user($new_patron->id(), new_editor(requestor => $user_obj));
 }
 
 
 sub flesh_user {
 	my $id = shift;
+    my $e = shift;
 	return new_flesh_user($id, [
 		"cards",
 		"card",
@@ -341,7 +334,7 @@ sub flesh_user {
 		"addresses",
 		"billing_address",
 		"mailing_address",
-		"stat_cat_entries" ] );
+		"stat_cat_entries" ], $e );
 }
 
 
@@ -931,7 +924,7 @@ sub user_retrieve_by_barcode {
 	}
 
 	$card = $card->[0];
-	my $user = flesh_user($card->usr());
+	my $user = flesh_user($card->usr(), new_editor(requestor => $user_obj));
 
 	$evt = $U->check_perms($user_obj->id, $user->home_ou, 'VIEW_USER');
 	return $evt if $evt;
@@ -2795,7 +2788,13 @@ sub new_flesh_user {
 
 	my $id = shift;
 	my $fields = shift || [];
-	my $e	= shift || new_editor(xact=>1);
+	my $e = shift;
+
+    my $fetch_penalties = 0;
+    if(grep {$_ eq 'standing_penalties'} @$fields) {
+        $fields = [grep {$_ ne 'standing_penalties'} @$fields];
+        $fetch_penalties = 1;
+    }
 
 	my $user = $e->retrieve_actor_user(
    	[
@@ -2825,6 +2824,20 @@ sub new_flesh_user {
 		}
 	}
 
+    if($fetch_penalties) {
+        # grab the user penalties ranged for this location
+        $user->standing_penalties(
+            $e->search_actor_user_standing_penalty([
+                {   usr => $id, 
+                    org_unit => $U->get_org_ancestors($e->requestor->ws_ou)
+                },
+                {   flesh => 1,
+                    flesh_fields => {ausp => ['standing_penalty']}
+                }
+            ])
+        );
+    }
+
 	$e->rollback;
 	$user->clear_passwd();
 	return $user;
-- 
2.11.0