X-Git-Url: https://ruin.nu/git/?a=blobdiff_plain;f=resources.pl;h=fa64c3238a3eb4b9505e295738deb22bb145d6e7;hb=03830799201db0b0f28e9c494fdd1b5b5143749c;hp=5e63b7a5d3d6583c405101a982b668f39cf5ff97;hpb=6eacbf94cc13b8b6df3018df1159065fc9a5140e;p=ndwebbie.git

diff --git a/resources.pl b/resources.pl
index 5e63b7a..fa64c32 100644
--- a/resources.pl
+++ b/resources.pl
@@ -18,10 +18,9 @@
 #**************************************************************************/
 
 use strict;
-use POSIX;
+use warnings FATAL => 'all';
 our $BODY;
 our $DBH;
-our $LOG;
 my $error;
 
 $ND::TEMPLATE->param(TITLE => 'Alliance Resources');
@@ -29,7 +28,7 @@ $ND::TEMPLATE->param(TITLE => 'Alliance Resources');
 die "You don't have access" unless isHC();
 
 my $order = "respplanet DESC";
-if (param('order') =~ /^(score|resources|respplanet|nscore|nscore2|nscore3)$/){
+if (defined param('order') && param('order') =~ /^(size|score|resources|respplanet|nscore|nscore2|nscore3)$/){
 	$order = "$1 DESC";
 }
 
@@ -50,9 +49,9 @@ $query->execute;
 my @alliances;
 my $i = 0;
 while (my $alliance = $query->fetchrow_hashref){
+	$i++;
 	$alliance->{ODD} = $i % 2;
 	push @alliances,$alliance;
-	$i++
 }
 $BODY->param(Alliances => \@alliances);