return '' unless ($S->have_perm('edit_user'));

my $select = qq{ select * from users where perm_group!='Anonymous' and perm_group != 'Users'};

my ($rv, $sth) = $S->db_select({
FROM => 'users',
WHAT => '*',
WHERE => qq{perm_group!='Anonymous' and perm_group != 'Users'},
});

return '' unless $rv;
my $vers = $S->{UI}->{VARS}->{SCOOP_DATE};
my $retval = "Scoop Version '$vers'<BR>";

while( my $user = $sth->fetchrow_hashref ) {
$retval .= qq{ + ($user->{perm_group}) <a href="|rootdir|?op=user;tool=info;nick=$user->{nickname}">$user->{nickname}</a><br> }

}


return $retval;

Post A Comment