From a0a2192119425ac8d2b0a18ddb35918a7e436aba Mon Sep 17 00:00:00 2001
From: JT Smith <jt@plainblack.com>
Date: Sun, 23 Jun 2002 22:47:15 +0000
Subject: [PATCH] Adding karma.

---
 lib/WebGUI/Operation/Account.pm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/lib/WebGUI/Operation/Account.pm b/lib/WebGUI/Operation/Account.pm
index 50888826e..f1c17a0b7 100644
--- a/lib/WebGUI/Operation/Account.pm
+++ b/lib/WebGUI/Operation/Account.pm
@@ -247,6 +247,7 @@ sub www_createAccountSave {
 		$u->authMethod($session{setting}{authMethod});
 		$u->ldapURL($session{setting}{ldapURL});
 		$u->connectDN($connectDN);
+		$u->karma($session{setting}{karmaPerLogin},"Login","Just for logging in.") if ($session{setting}{useKarma});
 		foreach $fieldName (keys %{$profile}) {
 			$u->profileField($fieldName,${$profile}{$fieldName});
 		}
@@ -458,6 +459,7 @@ sub www_login {
 	}
 	if ($success) {
 		WebGUI::Session::start($uid);
+		$u->karma($session{setting}{karmaPerLogin},"Login","Just for logging in.") if ($session{setting}{useKarma});
                 _logLogin($uid,"success");
 		return "";
 	} else {