X-Git-Url: https://ruin.nu/git/?a=blobdiff_plain;f=alliances.pl;h=4cfa2d51f46ea61e884a8665a2953a064153f851;hb=ccf38f8bef1adef7c1ef8797d8c84e477bc82305;hp=62aae64f71ad2b7a98c5e8e5e81df5012773a30b;hpb=afc3b476209555d1769aaca6f4f376f57dcefc33;p=ndwebbie.git

diff --git a/alliances.pl b/alliances.pl
index 62aae64..4cfa2d5 100644
--- a/alliances.pl
+++ b/alliances.pl
@@ -18,6 +18,8 @@
 #**************************************************************************/
 
 use strict;
+use warnings FATAL => 'all';
+no warnings qw(uninitialized);
 use POSIX;
 our $BODY;
 our $DBH;
@@ -84,9 +86,9 @@ ORDER BY $order});
 	$members->execute($alliance->{id});
 	my $i = 0;
 	while (my $member = $members->fetchrow_hashref){
+		$i++;
 		$member->{ODD} = $i % 2;
 		push @members,$member;
-		$i++;
 	}
 	$BODY->param(Members => \@members);
 
@@ -98,16 +100,16 @@ ORDER BY $order});
 	$query->execute($alliance->{id},$alliance->{id},$alliance->{id},$alliance->{id}) or $error .= $DBH->errstr;
 
 	my @intel;
-	my $i = 0;
+	$i = 0;
 	while (my $intel = $query->fetchrow_hashref){
 		if ($intel->{ingal}){
 			$intel->{missionclass} = 'ingal';
 		}else{
 			$intel->{missionclass} = $intel->{mission};
 		}
+		$i++;
 		$intel->{ODD} = $i % 2;
 		push @intel,$intel;
-		$i++;
 	}
 	$BODY->param(Intel => \@intel);
 }else{
@@ -131,10 +133,10 @@ ORDER BY $order
 	my @alliances;
 	my $i = 0;
 	while (my $alliance = $query->fetchrow_hashref){
+		$i++;
 		next if ($alliance->{score} < 1 && $alliance->{kscore} < 1);
 		$alliance->{ODD} = $i % 2;
 		push @alliances, $alliance;
-		$i++;
 	}
 	$BODY->param(Alliances => \@alliances);
 }