#**************************************************************************/
use strict;
+use warnings FATAL => 'all';
+no warnings qw(uninitialized);
use POSIX;
our $BODY;
our $DBH;
$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);
$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{
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);
}