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 16f0e8cb8719db5ddd900f35d8613f83ddc806fc..9bf0dd5faa64da1611df2dd56e03a6cec91d6de6 100644 (file)
--- a/lib/NDWeb/Controller/Root.pm
+++ b/lib/NDWeb/Controller/Root.pm
@@ -89,6 +89,18 @@ ORDER BY r.tick+c.wave,x,y,z});
        $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 {
        my ($self, $c) = @_;
        my $dbh = $c ->model;