Converted editRaid page

[ndwebbie.git] / lib / NDWeb / Controller / Root.pm

diff --git a/lib/NDWeb/Controller/Root.pm b/lib/NDWeb/Controller/Root.pm
index 6685c8537c812e0a41624c6808c24de5dd6625f0..9bf0dd5faa64da1611df2dd56e03a6cec91d6de6 100644 (file)
--- a/lib/NDWeb/Controller/Root.pm
+++ b/lib/NDWeb/Controller/Root.pm
@@ -56,8 +56,16 @@ sub logout : Local {
        $c->res->redirect($c->uri_for('index'));
 }
 
-#sub begin : private {
-#}
+sub begin : Private {
+       my ($self, $c) = @_;
+
+        $c->res->header( 'Cache-Control' =>
+               'no-store, no-cache, must-revalidate,'.
+               'post-check=0, pre-check=0, max-age=0'
+       );
+       $c->res->header( 'Pragma' => 'no-cache' );
+       $c->res->header( 'Expires' => 'Thu, 01 Jan 1970 00:00:00 GMT' );
+}
 
 sub listTargets : Private {
        my ($self, $c) = @_;
@@ -78,7 +86,19 @@ ORDER BY r.tick+c.wave,x,y,z});
                push @targets, $target;
        }
 
-       $c->stash(targets => \@targets);
+       $c->stash(claimedtargets => \@targets);
+}
+
+sub listAlliances : Private {
+       my ($self, $c) = @_;
+       my @alliances;
+       push @alliances,{id => -1, name => ''};
+       my $query = $c->model->prepare(q{SELECT id,name FROM alliances ORDER BY LOWER(name)});
+       $query->execute;
+       while (my $ally = $query->fetchrow_hashref){
+               push @alliances,$ally;
+       }
+       $c->stash(alliances => \@alliances);
 }
 
 sub auto : Private {