Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Add fix for unlimited author moderation

  • Loading branch information...
commit 74eca6aa32442c74a98634aa2d0d1006cd0dba5d 1 parent 0d2ce4f
@pudge pudge authored
Showing with 18 additions and 14 deletions.
  1. +9 −7 public_html/comments.pl
  2. +9 −7 themes/slashcode/htdocs/comments.pl
View
16 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;
View
16 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;
Please sign in to comment.
Something went wrong with that request. Please try again.