From 392bb0306ff4aaada80947690fe936f034e851f1 Mon Sep 17 00:00:00 2001
From: Graham Knop <haarg@haarg.org>
Date: Tue, 15 Jun 2010 05:36:02 -0500
Subject: [PATCH] fix setting user for request

---
 lib/WebGUI/Session.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/WebGUI/Session.pm b/lib/WebGUI/Session.pm
index fc76b7512..056d82f9b 100644
--- a/lib/WebGUI/Session.pm
+++ b/lib/WebGUI/Session.pm
@@ -706,10 +706,10 @@ sub user {
 		}	
 		delete $self->{_stow};
 		$self->{_user} = $option->{user} || WebGUI::User->new($self, $userId);
-		$self->request->user($self->{_user}->username) if $self->request;
+		$self->request->env->{REMOTE_USER} = $self->{_user}->username if $self->request;
 	} elsif (!exists $self->{_user}) {
 		$self->{_user} = WebGUI::User->new($self, $self->var->get('userId'));
-		$self->request->user($self->{_user}->username) if $self->request;
+		$self->request->env->{REMOTE_USER} = $self->{_user}->username if $self->request;
 	} 
     return $self->{_user};
 }