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

Adding karma.

Browse source
This commit is contained in:
JT Smith 2002-06-19 02:02:33 +00:00
parent 566a62e6af
commit 5cf47ced5a
1 changed files with 22 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

25
lib/WebGUI/User.pm
View file

@ -214,13 +214,33 @@ sub identifier {
#-------------------------------------------------------------------
=head2 karma ( )
=head2 karma ( amount, source, description )
Returns the current level of karma this user has earned.
=item amount
An integer to modify this user's karma by. Note that this number can
be positive or negative.
=item source
A descriptive source for this karma. Typically it would be something
like "MessageBoard (49)" or "Admin (3)". Source is used to track
where a karma modification came from.
=item description
A description of why this user's karma was modified. For instance it
could be "Message Board Post" or "He was a good boy!".
=cut
sub karma {
if (defined $_[1] && defined $_[2] && defined $_[3]) {
WebGUI::SQL->write("update users set karma=karma+$_[1] where userId=$_[0]");
WebGUI::SQL->write("insert into karmaLog values ($_[0]->userId,$_[1],".quote($_[2]).",".quote($_[3]).")");
}
return $_[0]->{_user}{karma};
}
@ -254,8 +274,7 @@ sub ldapURL {
$value = shift;
if (defined $value) {
$class->{_user}{"ldapURL"} = $value;
WebGUI::SQL->write("update users set ldapURL=".quote($value).",
lastUpdated=".time()." where userId=$class->{_userId}");
WebGUI::SQL->write("update users set ldapURL=".quote($value).", lastUpdated=".time()." where userId=$class->{_userId}");
}
return $class->{_user}{"ldapURL"};
}