Add fix for unlimited author moderation

scc · Aug 16, 2000 · 74eca6a · 74eca6a
1 parent 0d2ce4f
commit 74eca6a
Show file tree

Hide file tree

Showing 2 changed files with 18 additions and 14 deletions.
diff --git a/public_html/comments.pl b/public_html/comments.pl
@@ -803,13 +803,15 @@ sub moderateCid {
 		"cid=$cid and sid='$sid'"
 	);
 
-	my($mid) = sqlSelect(
-		"id", "moderatorlog",
-		"uid=$I{U}{uid} and cid=$cid and sid='$sid'"
-	);
-	if ($mid) {
-		print "<LI>$subj ($sid-$cid, <B>Already moderated</B>)</LI>";
-		return;
+	unless ($I{U}{aseclev} > 99 && $I{authors_unlimited}) {
+		my($mid) = sqlSelect(
+			"id", "moderatorlog",
+			"uid=$I{U}{uid} and cid=$cid and sid='$sid'"
+		);
+		if ($mid) {
+			print "<LI>$subj ($sid-$cid, <B>Already moderated</B>)</LI>";
+			return;
+		}
 	}
 
 	my $modreason = $reason;

diff --git a/themes/slashcode/htdocs/comments.pl b/themes/slashcode/htdocs/comments.pl
@@ -803,13 +803,15 @@ sub moderateCid {
 		"cid=$cid and sid='$sid'"
 	);
 
-	my($mid) = sqlSelect(
-		"id", "moderatorlog",
-		"uid=$I{U}{uid} and cid=$cid and sid='$sid'"
-	);
-	if ($mid) {
-		print "<LI>$subj ($sid-$cid, <B>Already moderated</B>)</LI>";
-		return;
+	unless ($I{U}{aseclev} > 99 && $I{authors_unlimited}) {
+		my($mid) = sqlSelect(
+			"id", "moderatorlog",
+			"uid=$I{U}{uid} and cid=$cid and sid='$sid'"
+		);
+		if ($mid) {
+			print "<LI>$subj ($sid-$cid, <B>Already moderated</B>)</LI>";
+			return;
+		}
 	}
 
 	my $modreason = $reason;