more fatal warnings and other cleanup

[ndwebbie.git] / ND / Include.pm

diff --git a/ND/Include.pm b/ND/Include.pm
index 96f64da1e5eee58d5cec4b751ce201f51b51fc5e..796ed68dbd10acabcc81244d97d295d335044e20 100644 (file)
--- a/ND/Include.pm
+++ b/ND/Include.pm
@@ -99,6 +99,7 @@ ORDER BY r.tick+c.wave,x,y,z});
 sub alliances {
        my ($alliance) = @_;
        my @alliances;
+       $alliance = -1 unless defined $alliance;
        push @alliances,{Id => -1, Name => ' ', Selected => not $alliance};
        my $query = $ND::DBH->prepare(q{SELECT id,name FROM alliances ORDER BY name});
        $query->execute;