Minor bugfix

scc · Jul 1, 2008 · f531904 · f531904
1 parent c2005b4
commit f531904
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/tagboxes/CommentScoreReason/CommentScoreReason.pm b/tagboxes/CommentScoreReason/CommentScoreReason.pm
@@ -144,7 +144,13 @@ sub run {
 	}
 
 	my $mod_score_sum = 0;
-	my($gtid, $cid) = $self->getGlobjTarget($affected_id);
+	my($type, $cid) = $self->getGlobjTarget($affected_id);
+	if ($type ne 'comments') {
+		# this should be unnecessary now, leave in for a week to make sure I squashed this bug
+		my $comments_gtid = $self->getGlobjTypes()->{comments};
+		main::tagboxLog("ERROR - CommentScoreReason->run invoked for non-comment globj $affected_id, type='$type' comments_gtid=$comments_gtid");
+		return;
+	}
 	my $tags_ar = $tagboxdb->getTagboxTags($self->{tbid}, $affected_id, 0);
 	return unless $tags_ar && @$tags_ar;
 	my($keep_karma_bonus, $karma_bonus_downmods_left) = (1, $constants->{mod_karma_bonus_max_downmods});