From 7aedfa089da4a8d9489c515af623cd19edda5b8a Mon Sep 17 00:00:00 2001
From: JT Smith <jt@plainblack.com>
Date: Sat, 14 Jan 2006 23:22:53 +0000
Subject: [PATCH] fix

---
 lib/WebGUI/User.pm | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/lib/WebGUI/User.pm b/lib/WebGUI/User.pm
index 0dcd0768a..d92fe4ec9 100644
--- a/lib/WebGUI/User.pm
+++ b/lib/WebGUI/User.pm
@@ -496,6 +496,7 @@ sub new {
 			_profile => \%profile
 			};
 		$cache->set($userData, 60*60*24);
+		$userData->{_session} = $session;
         }
         bless $userData, $class;
 }
@@ -557,6 +558,20 @@ sub referringAffiliate {
         return $self->{_user}{"referringAffiliate"};
 }
 
+#-------------------------------------------------------------------
+
+=head2 session ( ) 
+
+Returns a reference to the current session.
+
+=cut
+
+sub session {
+	my $self = shift;
+	return $self->{_session};
+}
+
+
 #-------------------------------------------------------------------
 
 =head2 status ( [ value ] )