summaryrefslogtreecommitdiff
path: root/lib/VNDB/Handler/Misc.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/VNDB/Handler/Misc.pm')
-rw-r--r--lib/VNDB/Handler/Misc.pm14
1 files changed, 9 insertions, 5 deletions
diff --git a/lib/VNDB/Handler/Misc.pm b/lib/VNDB/Handler/Misc.pm
index 7505028a..fc82c4f0 100644
--- a/lib/VNDB/Handler/Misc.pm
+++ b/lib/VNDB/Handler/Misc.pm
@@ -315,11 +315,15 @@ sub docpage {
close $F;
$ii;
}e;
- s{^:TOP5CONTRIB:$}{
- my $l = $self->dbUserGet(results => 6, sort => 'changes', reverse => 1);
- '<dl>'.join('', map $_->{id} == 1 ? () :
- sprintf('<dt><a href="/u%d">%s</a></dt><dd>%d</dd>', $_->{id}, $_->{username}, $_->{c_changes}),
- @$l).'</dl>';
+ s{^:MODERATORS:$}{
+ my $l = $self->dbUserGet(results => 100, sort => 'id', notperm => $self->{default_perm}, what => 'extended');
+ my $admin = 0;
+ $admin += $_ for values %{$self->{permissions}};
+ '<dl>'.join('', map {
+ my $u = $_;
+ my $p = $u->{perm} >= $admin ? 'admin' : join ', ', sort map +($u->{perm} &~ $self->{default_perm}) & $self->{permissions}{$_} ? $_ : (), keys %{$self->{permissions}};
+ $p ? sprintf('<dt><a href="/u%d">%s</a></dt><dd>%s</dd>', $_->{id}, $_->{username}, $p) : ()
+ } @$l).'</dl>';
}e;
s{^:SKINCONTRIB:$}{
my %users;