1 package NDWeb::Controller::Members;
5 use parent 'Catalyst::Controller';
9 NDWeb::Controller::Members - Catalyst Controller
25 my ( $self, $c, $order ) = @_;
28 if ($order =~ /^((?:defense|attack|total|humor|scan|raid)_points)$/){
31 $order = 'total_points DESC';
34 my $limit = 'LIMIT 10';
35 $limit = '' if $c->check_user_roles(qw/members_points_nolimit/);
37 my $query = $dbh->prepare(qq{SELECT username,defense_points,attack_points
38 ,scan_points,humor_points
39 ,(attack_points+defense_points+scan_points/20) as total_points
40 , count(NULLIF(rc.launched,FALSE)) AS raid_points
41 FROM users u LEFT OUTER JOIN raid_claims rc USING (uid)
42 WHERE uid IN (SELECT uid FROM groupmembers WHERE gid = 2)
43 GROUP BY username,defense_points,attack_points,scan_points,humor_points,rank
44 ORDER BY $order $limit});
47 while (my $member = $query->fetchrow_hashref){
48 push @members,$member;
50 $c->stash(members => \@members);
55 Michael Andreen (harv@ruin.nu)