+ $query = $dbh->prepare(q{
+SELECT tag, array_to_string(array_agg(username),', ') AS nicks, to_char(max(time),'YYYY-MM-DD HH24:MI') AS time
+FROM planet_tags pt
+ JOIN users u USING (uid)
+WHERE pt.pid = $1
+GROUP BY tag
+ORDER BY time DESC
+ });
+ $query->execute($id);
+ $c->stash(tags => $query->fetchall_arrayref({}) );
+
+}
+
+sub channels : Local {
+ my ( $self, $c, $order ) = @_;
+ my $dbh = $c->model;
+
+ if ($order ~~ /(alliance)/){
+ $order = "lower($1) ASC";
+ }elsif ($order ~~ /(coords)/){
+ $order = "x,y,z";
+ }else{
+ $order = 'channel';
+ }
+
+ my $query = $dbh->prepare(q{
+SELECT pid AS id,coords(x,y,z),nick,channel,alliance FROM current_planet_stats
+WHERE channel <> '' and channel IS NOT NULL
+ORDER BY } . $order
+ );
+ $query->execute;
+ $c->stash(planets => $query->fetchall_arrayref({}) );