Show pnick in user list

diff --git a/lib/NDWeb/Controller/Users.pm b/lib/NDWeb/Controller/Users.pm
index 67fb97f6545c4e9213d41bfa5120a35fb3e6ed87..bdad4fc9b61c19dac0b1bb4b5bc7c0ee5a709866 100644 (file)
--- a/lib/NDWeb/Controller/Users.pm
+++ b/lib/NDWeb/Controller/Users.pm
@@ -28,18 +28,15 @@ sub index :Path :Args(0) {
        my ( $self, $c ) = @_;
        my $dbh = $c->model;
 
-       my $query = $dbh->prepare(qq{SELECT uid,username,array_to_string(array_agg(g.groupname),', ') AS groups
-               FROM users u LEFT OUTER JOIN (groupmembers gm NATURAL JOIN groups g) USING (uid)
-               WHERE uid > 0
-               GROUP BY u.uid,username
-               ORDER BY username});
+       my $query = $dbh->prepare(q{
+SELECT uid,username,pnick,array_to_string(array_agg(g.groupname),', ') AS groups
+FROM users u LEFT OUTER JOIN (groupmembers gm NATURAL JOIN groups g) USING (uid)
+WHERE uid > 0
+GROUP BY u.uid,username,pnick
+ORDER BY username
+               });
        $query->execute;
-
-       my @users;
-       while (my $user = $query->fetchrow_hashref){
-               push @users, $user;
-       }
-       $c->stash(users => \@users);
+       $c->stash(users => $query->fetchall_arrayref({}));
 }
 
 sub edit : Local {

diff --git a/root/src/users/index.tt2 b/root/src/users/index.tt2
index 29127a368e01f1814684569dd29c88a7995f456e..3c8c0866d5ab6e98922d284ef75e2311e8e0d67d 100644 (file)
--- a/root/src/users/index.tt2
+++ b/root/src/users/index.tt2
@@ -1,9 +1,10 @@
 [% META title = 'User listing' %]
 <table>
-       <tr><th>User</th><th>Groups</th></tr>
+       <tr><th>User</th><th>P-nick</th><th>Groups</th></tr>
 [% FOR u IN users %]
        <tr class="[% loop.count % 2 == 0 ? 'even' : 'odd' %]">
                <td><a href="[% c.uri_for('edit',u.uid) %]">[% u.username | html %]</a></td>
+               <td>[% u.pnick %]</td>
                <td>[% u.groups %]</td>
        </tr>
 [% END %]