Suggestion for reason_alter_*.

scc · Nov 24, 2001 · a30796a · a30796a
1 parent 5fb83e4
commit a30796a
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/themes/slashcode/htdocs/users.pl b/themes/slashcode/htdocs/users.pl
@@ -1558,6 +1558,7 @@ sub saveComm {
 
 	my($min, $max) = ($constants->{comment_minscore}, 
 			  $constants->{comment_maxscore});
+	my $most_adj = $max-$min;
 	my @reasons = ();
 	@reasons = @{$constants->{reasons}}
 		if $constants->{reasons} and ref($constants->{reasons}) eq 'ARRAY';
@@ -1574,6 +1575,9 @@ sub saveComm {
 #			if $answer < $min;
 #		$answer  = $constants->{comment_maxscore}
 #			if $answer > $max;
+# Do you mean this? -Jamie
+#		$answer  = -$most_adj if $answer < -$most_adj;
+#		$answer  =  $most_adj if $answer >  $most_adj;
 		$users_comments_table->{"reason_alter_$_"} = ($answer == 0) ? '' : $answer;
 	}