X-Git-Url: https://ruin.nu/git/?a=blobdiff_plain;f=lib%2FNDWeb%2FController%2FUsers.pm;h=bdad4fc9b61c19dac0b1bb4b5bc7c0ee5a709866;hb=e124a881df36f865fe40babaec23b4c4801f0d59;hp=67fb97f6545c4e9213d41bfa5120a35fb3e6ed87;hpb=6a9e5393fb419bef37a90ff92fb1ec557f8290dc;p=ndwebbie.git

diff --git a/lib/NDWeb/Controller/Users.pm b/lib/NDWeb/Controller/Users.pm
index 67fb97f..bdad4fc 100644
--- 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 {