added karma to collaboration ratings

lib/WebGUI/Asset/Post/Thread.pm

@@ -461,6 +461,12 @@ sub rate {
 			where Post.threadId=".quote($self->getId)." and Post.rating>0");
         	my $average = round($sum/$count);
         	$self->update({rating=>$average});
+		if ($session{setting}{useKarma}) {
+			my $poster = WebGUI::User->new($self->get("ownerUserId"));
+			$poster->karma($rating*$self->getParent->get("karmaRatingMultiplier"),"collaboration rating","someone rated post ".$self->getId);
+			my $rater = WebGUI::User->new($session{user}{userId});
+			$rater->karma(-$self->getParent->get("karmaSpentToRate"),"collaboration rating","spent karma to rate post ".$self->getId); 
+		}
         	$self->getParent->recalculateRating;
         }
 }

lib/WebGUI/Asset/Wobject/Collaboration.pm

@@ -377,6 +377,14 @@ sub definition {
 				fieldType=>"integer",
 				defaultValue=>0
 				},
+			karmaSpentToRate => {
+				fieldType => "integer",
+				defaultValue=> 0
+				},
+			karmaRatingMultiplier => {
+				fieldType => "integer",
+				defaultValue=> 0
+				},
 			moderatePosts =>{
 				fieldType=>"yesNo",
 				defaultValue=>0
@@ -469,8 +477,29 @@ sub getEditForm {
 			-label=>WebGUI::International::get('karma/post', 'Asset_Collaboration'),
 			-value=>$self->getValue("karmaPerPost")
 			);
+                $tabform->getTab("properties")->integer(
+			-name=>"karmaSpentToRate",
+			-label=>WebGUI::International::get('karma spent to rate', 'Asset_Collaboration'),
+			-value=>$self->getValue("karmaSpentToRate")
+			);
+                $tabform->getTab("properties")->integer(
+			-name=>"karmaRatingMultiplier",
+			-label=>WebGUI::International::get('karma rating multiplier', 'Asset_Collaboration'),
+			-value=>$self->getValue("karmaRatingMultiplier")
+			);
         } else {
-                $tabform->getTab("properties")->hidden("karmaPerPost",$self->getValue("karmaPerPost"));
+                $tabform->getTab("properties")->hidden(
+			-name=>"karmaPerPost",
+			-value=>$self->getValue("karmaPerPost")
+			);
+                $tabform->getTab("properties")->hidden(
+			-name=>"karmaSpentToRate",
+			-value=>$self->getValue("karmaSpentToRate")
+			);
+                $tabform->getTab("properties")->hidden(
+			-name=>"karmaRatingMultiplier",
+			-value=>$self->getValue("karmaRatingMultiplier")
+			);
         }
 	$tabform->getTab("security")->filterContent(
 		-value=>$self->getValue("filterCode"),