oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix

Browse source
This commit is contained in:
JT Smith 2006-01-14 23:22:53 +00:00
parent fef8fe1ceb
commit 7aedfa089d
1 changed files with 15 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

15
lib/WebGUI/User.pm
View file

@ -496,6 +496,7 @@ sub new {
_profile => \%profile _profile => \%profile
}; };
$cache->set($userData, 60*60*24); $cache->set($userData, 60*60*24);
$userData->{_session} = $session;
} }
bless $userData, $class; bless $userData, $class;
} }
@ -557,6 +558,20 @@ sub referringAffiliate {
return $self->{_user}{"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 ] ) =head2 status ( [ value ] )