X-Git-Url: https://ruin.nu/git/?a=blobdiff_plain;f=NDWeb%2FPages%2FAlliances.pm;fp=NDWeb%2FPages%2FAlliances.pm;h=75635efd96b7f193d2509cdcdf0bb22a9f88a24e;hb=b3d60946973fc4d48b32c2447522f0bba02087d3;hp=d60f7a7feca96e2f1c56b8ebf2dd14f1853d7f06;hpb=4e8a42b55b7dfce191bd84a1ed31b3831db9f7fb;p=ndwebbie.git diff --git a/NDWeb/Pages/Alliances.pm b/NDWeb/Pages/Alliances.pm index d60f7a7..75635ef 100644 --- a/NDWeb/Pages/Alliances.pm +++ b/NDWeb/Pages/Alliances.pm @@ -95,10 +95,7 @@ sub render_body { ORDER BY $order}); my @members; $members->execute($alliance->{id}); - my $i = 0; while (my $member = $members->fetchrow_hashref){ - $i++; - $member->{ODD} = $i % 2; push @members,$member; } $BODY->param(Members => \@members); @@ -111,15 +108,12 @@ sub render_body { $query->execute($alliance->{id}) or $error .= $DBH->errstr; my @intel; - $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; } $BODY->param(Intel => \@intel); @@ -142,11 +136,8 @@ sub render_body { })or $error .= $DBH->errstr; $query->execute or $error .= $DBH->errstr; my @alliances; - my $i = 0; while (my $alliance = $query->fetchrow_hashref){ next unless (defined $alliance->{score} || $alliance->{kscore} > 0); - $i++; - $alliance->{ODD} = $i % 2; push @alliances, $alliance; } $BODY->param(Alliances => \@alliances);