From 5cf47ced5aeb815aaa82156c287d3f80e9a3b0bd Mon Sep 17 00:00:00 2001
From: JT Smith <jt@plainblack.com>
Date: Wed, 19 Jun 2002 02:02:33 +0000
Subject: [PATCH] Adding karma.

---
 lib/WebGUI/User.pm | 25 ++++++++++++++++++++++---
 1 file changed, 22 insertions(+), 3 deletions(-)

diff --git a/lib/WebGUI/User.pm b/lib/WebGUI/User.pm
index e11452006..5fd440565 100644
--- a/lib/WebGUI/User.pm
+++ b/lib/WebGUI/User.pm
@@ -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"};
 }