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

Adding user-status and two bugfixes for pluggable auth.

Browse source
This commit is contained in:
Martin Kamerbeek 2002-11-27 21:03:35 +00:00
parent 0925fd17aa
commit 0ea8cd6845
4 changed files with 83 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

29
lib/WebGUI/User.pm
View file

@ -37,6 +37,7 @@ use WebGUI::Authentication;
$karma = $u->karma;
$lastUpdated = $u->lastUpdated;
$languagePreference = $u->profileField("language",1);
$status = $u->status("somestatus");
$username = $u->username("jonboy");
$u->addToGroups(\@arr);
@ -305,6 +306,31 @@ sub profileField {
#-------------------------------------------------------------------
=head2 status ( [ value ] )
Returns the status of the user.
=item value
If specified, the status is set to this value.
Possible values are 'Active', 'Selfdestructed' and 'Deactivated'.
=cut
sub status {
my ($class, $value);
$class = shift;
$value = shift;
if (defined $value) {
$class->{_user}{"status"} = $value;
WebGUI::SQL->write("update users set status=".quote($value).",
lastUpdated=".time()." where userId=$class->{_userId}");
}
return $class->{_user}{"status"};
}
#-------------------------------------------------------------------
=head2 username ( [ value ] )
Returns the username.
@ -339,7 +365,4 @@ sub userId {
return $_[0]->{_userId};
}
1;