minor things

[ndwebbie.git] / intel.pl

diff --git a/intel.pl b/intel.pl
index c1beff473da2c6281a714af4d1fe9e2d4d9ed25d..90498c29dd5307b56cfe8af6e2779956f59f3153 100644 (file)
--- a/intel.pl
+++ b/intel.pl
@@ -143,9 +143,9 @@ if ($planet){
                }else{
                        $intel->{missionclass} = $intel->{mission};
                }
+               $i++;
                $intel->{ODD} = $i % 2;
                push @intel,$intel;
-               $i++;
        }
        push @intellists,{Message => 'Incoming fleets', Intel => \@intel, Origin => 1};
 
@@ -159,9 +159,9 @@ if ($planet){
                }else{
                        $intel->{missionclass} = $intel->{mission};
                }
+               $i++;
                $intel->{ODD} = $i % 2;
                push @intel,$intel;
-               $i++;
        }
        push @intellists,{Message => 'Outgoing Fleets', Intel => \@intel, Target => 1};
 
@@ -184,9 +184,9 @@ if ($planet){
                }else{
                        $intel->{missionclass} = $intel->{mission};
                }
+               $i++;
                $intel->{ODD} = $i % 2;
                push @intel,$intel;
-               $i++;
        }
        push @intellists,{Message => q{Intel where alliances doesn't match}, Intel => \@intel, Origin => 1, Target => 1};
        $BODY->param(IntelLIsts => \@intellists);