added a karma ranking system to cs threads for conducting popularity contests

lib/WebGUI/Asset/Post.pm

@@ -1133,6 +1133,11 @@ sub www_edit {
 	$var{'form.submit'} = WebGUI::Form::submit($self->session, {
 		extras=>"onclick=\"this.value='".$i18n->get(452)."'; this.form.func.value='editSave'; this.form.submit();return false;\""
 		});
+	$var{'karmaScale.form'} = WebGUI::Form::integer($self->session, {
+		name=>"karmaScale",
+		value=>$self->getValue("karmaScale"),
+		defaultValue=>1
+		});
 	$var{'form.preview'} = WebGUI::Form::submit($self->session, {
 		value=>$i18n->get("preview","Asset_Collaboration")
 		});

lib/WebGUI/Asset/Post/Thread.pm

@@ -108,8 +108,23 @@ sub definition {
 				},
 			lastPostDate => {
 				noFormPost=>1,
-				fieldType=>"hidden",
+				fieldType=>"dateTime",
 				defaultValue=>undef
+				},
+			karma => {
+				noFormPost=>1,
+				fieldType=>"integer",
+				defaultValue=>0
+				},
+			karmaRank => {
+				noFormPost=>1,
+				fieldType=>"hidden",
+				defaultValue=>0
+				},
+			karmaScale => {
+				noFormPost=>1,
+				fieldType=>"integer",
+				defaultValue=>1
 				}
 			},
 		});
@@ -489,6 +504,10 @@ sub processPropertiesFromFormPost {
 	if ($self->get("subscriptionGroupId") eq "") {
 		$self->createSubscriptionGroup;
 	}
+	if ($self->getParent->canModerate) {
+		my $karmaScale = $self->session->form("karmaScale","integer") || 1;
+		$self->update({karmaScale=>$karmaScale, karmaRank=>$self->get("karma")/$karmaScale});
+	}
 }
 
 
@@ -730,6 +749,18 @@ sub view {
         $var->{'lock.url'} = $self->getLockUrl;
         $var->{'unlock.url'} = $self->getUnlockUrl;
 
+	$var->{'transfer.karma.form'} = WebGUI::Form::formHeader($self->session, {action=>$self->getUrl})
+		.WebGUI::Form::hidden($self->session, {
+			name=>"func",
+			value=>"transferKarma"
+			})
+		.WebGUI::Form::integer($self->session, {
+			name=>"karma",
+			value=>10
+			})
+		.WebGUI::Form::submit($self->session)
+		.WebGUI::Form::formFooter($self->session);
+
         my $p = WebGUI::Paginator->new($self->session,$self->getUrl,$self->getParent->get("postsPerPage"));
 	my $sql = "select asset.assetId, asset.className, assetData.revisionDate as revisionDate, assetData.url as url from asset 
 		left join assetData on assetData.assetId=asset.assetId
@@ -843,6 +874,26 @@ sub www_subscribe {
 
 #-------------------------------------------------------------------
 
+=head2 www_transferKarma ( )
+
+Transfers karma from the current user to this thread.
+
+=cut
+
+sub www_transferKarma {
+	my $self = shift;
+	my $amount = $self->session->form->get("karma","integer");
+	# cant have them giving more karma then they have
+	if ($amount <= $self->session->user->karma) {
+		$self->session->user->karma($amount, "Thread ".$self->getId, "Transferring karma to a thread.");
+		my $newKarma = $self->get("karma")+$amount;
+		$self->update({karma=>$newKarma,karmaRank=>$newKarma/$self->get("karmaScale")});
+	}
+	return $self->www_view;
+}
+
+#-------------------------------------------------------------------
+
 =head2 www_unarchive ( )
 
 The web method to unarchive all the posts in this thread.

lib/WebGUI/Asset/Wobject/Collaboration.pm

@@ -405,6 +405,10 @@ sub definition {
 			postGroupId =>{
 				fieldType=>"group",
 				defaultValue=>'2'
+				},
+			defaultKarmaScale => {
+				fieldType=>"integer",
+				defaultValue=>1
 				}
 			}
 		});
@@ -515,7 +519,17 @@ sub getEditForm {
 			-hoverHelp=>$i18n->get('karma rating multiplier description'),
 			-value=>$self->getValue("karmaRatingMultiplier")
 			);
+                $tabform->getTab("properties")->integer(
+			-name=>"defaultKarmaScale",
+			$i18n->get("default karma scale"),
+			-hoverHelp=>$i18n->get('default karma scale help'),
+			-value=>$self->getValue("defaultKarmaScale")
+			);
         } else {
+                $tabform->getTab("properties")->hidden(
+			-name=>"defaultKarmaScale",
+			-value=>$self->getValue("defaultKarmaScale")
+			);
                 $tabform->getTab("properties")->hidden(
 			-name=>"karmaPerPost",
 			-value=>$self->getValue("karmaPerPost")
@@ -548,6 +562,7 @@ sub getEditForm {
 			userDefined4=>$i18n->get('user defined 4'),
 			userDefined5=>$i18n->get('user defined 5'),
 			);
+	$options{karmaRank} = $i18n->get("karma rank") if ($self->session->setting->get("useKarma"));
 	$tabform->getTab("display")->selectBox(
 		-name=>"sortBy",
 		-value=>[$self->getValue("sortBy")],