fix

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 ] )