</form>
<TMPL_ELSE>
<table border="1">
- <tr><th>User</th></tr>
+ <tr><th>User</th><th>Groups</th></tr>
<TMPL_LOOP Users>
<tr class="<TMPL_IF ODD>odd<TMPL_ELSE>even</TMPL_IF>">
<td><a href="index.pl?page=<TMPL_VAR NAME=PAGE>&user=<TMPL_VAR NAME=Uid>"><TMPL_VAR NAME=Username></a></td>
+ <td><TMPL_VAR NAME=Groups></td>
</tr>
</TMPL_LOOP>
</table>
$BODY->param(AddGroups => \@addgroups);
}else{
- my $query = $DBH->prepare(qq{SELECT uid,username FROM users ORDER BY username})or $error .= $DBH->errstr;
+ my $query = $DBH->prepare(qq{SELECT u.uid,username,TRIM(',' FROM concat(g.groupname||',')) AS groups
+ FROM users u LEFT OUTER JOIN (groupmembers gm NATURAL JOIN groups g) ON gm.uid = u.uid
+ WHERE u.uid > 0
+ GROUP BY u.uid,username
+ ORDER BY username})or $error .= $DBH->errstr;
$query->execute or $error .= $DBH->errstr;
my @users;
my $i = 0;