From aa9334405ce307647799498bc7766f1bd6b2bf68 Mon Sep 17 00:00:00 2001
From: Michael Andreen
Date: Tue, 25 Aug 2009 16:15:56 +0200
Subject: [PATCH] Add support for attack group
---
lib/NDWeb/Controller/Members.pm | 23 +++++++++++++++++++++++
root/src/members/index.tt2 | 13 ++++++++++++-
2 files changed, 35 insertions(+), 1 deletion(-)
diff --git a/lib/NDWeb/Controller/Members.pm b/lib/NDWeb/Controller/Members.pm
index 89997ba..e14cdcc 100644
--- a/lib/NDWeb/Controller/Members.pm
+++ b/lib/NDWeb/Controller/Members.pm
@@ -82,6 +82,12 @@ ORDER BY landing_tick DESC
});
$announcements->execute($c->user->id);
$c->stash(announcements => $announcements->fetchall_arrayref({}) );
+
+ my ($attackgroups) = $dbh->selectrow_array(q{
+SELECT array_agg(gid) FROM groupmembers WHERE gid IN ('x','y','z') AND uid = $1
+ }, undef, $c->user->id);
+ $c->stash(attackgroups => $attackgroups);
+
}
sub posthostupdate : Local {
@@ -94,6 +100,23 @@ sub posthostupdate : Local {
$c->res->redirect($c->uri_for(''));
}
+sub postattackgroups : Local {
+ my ( $self, $c ) = @_;
+ my $dbh = $c->model;
+
+ my @groups = $c->req->param('class');
+ $dbh->do(q{DELETE FROM groupmembers WHERE gid IN ('x','y','z') AND gid <> ALL($1) AND uid = $2
+ },undef, \@groups, $c->user->id);
+
+ $dbh->do(q{INSERT INTO groupmembers (uid,gid) (
+ SELECT $2, gid FROM unnest($1::text[]) AS gid WHERE gid IN ('x','y','z')
+ EXCEPT
+ SELECT uid,gid FROM groupmembers WHERE uid = $2
+ )},undef, \@groups, $c->user->id);
+
+ $c->res->redirect($c->uri_for(''));
+}
+
sub postsmsupdate : Local {
my ( $self, $c ) = @_;
my $dbh = $c->model;
diff --git a/root/src/members/index.tt2 b/root/src/members/index.tt2
index 7f1bc7d..d9b7559 100644
--- a/root/src/members/index.tt2
+++ b/root/src/members/index.tt2
@@ -83,7 +83,7 @@
Scan points: [% u.scan_points %]
Humor points: [% u.humor_points %]
Total points: [% u.total_points %]
- Member of the following groups: [% groups.join(',') %]
+ Member of the following groups: [% groups.join(', ') %]
@@ -118,6 +118,17 @@
+