From: Michael Andreen Date: Mon, 22 Jan 2007 09:28:22 +0000 (+0000) Subject: minor fixes X-Git-Url: https://ruin.nu/git/?a=commitdiff_plain;h=0d4db7e56891d629fc2bbabdd17de9276b86db09;p=ndwebbie.git minor fixes --- diff --git a/ND/Web/Pages/Calls.pm b/ND/Web/Pages/Calls.pm index c9a51f7..73b0916 100644 --- a/ND/Web/Pages/Calls.pm +++ b/ND/Web/Pages/Calls.pm @@ -144,13 +144,13 @@ sub render_body { my $ships = $DBH->prepare('SELECT ship,amount FROM fleet_ships WHERE fleet = ?'); $fleets->execute($call->{member},$call->{landing_tick},$call->{landing_tick}); my @fleets; - my $i = 0; while (my $fleet = $fleets->fetchrow_hashref){ if ($fleet->{back} == $call->{landing_tick}){ $fleet->{Fleetcatch} = 1; } $ships->execute($fleet->{id}); my @ships; + my $i = 0; while (my $ship = $ships->fetchrow_hashref){ $i++; $ship->{ODD} = $i % 2; @@ -163,15 +163,14 @@ sub render_body { $fleets = $DBH->prepare(q{ - SELECT username, id FROM fleets f JOIN users u USING (uid) WHERE target = $1 and landing_tick = $2 - AND back = landing_tick + eta - 1 + SELECT username, id,back - (landing_tick + eta - 1) AS recalled FROM fleets f JOIN users u USING (uid) WHERE target = $1 and landing_tick = $2 }); $fleets->execute($call->{planet},$call->{landing_tick}) or $ND::ERROR .= p $DBH->errstr; my @defenders; - $i = 0; while (my $fleet = $fleets->fetchrow_hashref){ $ships->execute($fleet->{id}); my @ships; + my $i = 0; while (my $ship = $ships->fetchrow_hashref){ $i++; $ship->{ODD} = $i % 2; @@ -191,7 +190,7 @@ sub render_body { ORDER BY p.x,p.y,p.z}); $attackers->execute($call->{id}); my @attackers; - $i = 0; + my $i = 0; while(my $attacker = $attackers->fetchrow_hashref){ $i++; $attacker->{ODD} = $i % 2; diff --git a/templates/calls.tmpl b/templates/calls.tmpl index 32a764b..ebedb75 100644 --- a/templates/calls.tmpl +++ b/templates/calls.tmpl @@ -29,6 +29,7 @@

Member:

+

RECALLED!

ShipAmount