X-Git-Url: https://ruin.nu/git/?a=blobdiff_plain;f=lib%2FNDWeb%2FController%2FCalls.pm;h=4033e5c06f6111a78ec04bde4b8847afef7edfc5;hb=2a703f7250ea25f2f556eb25b644dcb7268f92ce;hp=636ac29958957de0a9d1c64ed9244092191d34f6;hpb=44f9fde7339f31749b2cd390738d160cc2f0c68d;p=ndwebbie.git

diff --git a/lib/NDWeb/Controller/Calls.pm b/lib/NDWeb/Controller/Calls.pm
index 636ac29..4033e5c 100644
--- a/lib/NDWeb/Controller/Calls.pm
+++ b/lib/NDWeb/Controller/Calls.pm
@@ -164,6 +164,16 @@ sub edit : Local {
 		}
 		push @fleets, $fleet;
 	}
+
+	my $available = $dbh->prepare(q{
+SELECT ship,amount from ships_home WHERE planet = $1 AND tick = $2
+		});
+	$available->execute($call->{planet}, $call->{landing_tick});
+	my $fleet = {fid => $call->{member}, mission => 'Available'
+		, name => 'At home', ships => $available->fetchall_arrayref({})
+	};
+	push @fleets, $fleet;
+
 	$c->stash(fleets => \@fleets);
 
 	my $defenders = $dbh->prepare(q{ 
@@ -282,6 +292,12 @@ sub postcallupdate : Local {
 				,undef,$c->req->param('info'),$call->{id});
 			$log->execute($c->user->id,$call->{ftid},"Updated info");
 		}
+		if ($c->req->param('ccalc')){
+			my $calc = $c->req->param('calc');
+			$dbh->do(q{UPDATE calls SET calc = ? WHERE id = ?}
+				,undef,$calc,$call->{id});
+			$log->execute($c->user->id,$call->{ftid},html_escape('Updated calc to: [URL]'.$calc.'[/URL]'));
+		}
 	}elsif($c->req->param('cmd') =~ /^(Cover|Uncover|Ignore|Open|Take) call$/){
 		my $extra_vars = '';
 		if ($1 eq 'Cover'){
@@ -352,7 +368,7 @@ sub findCall : Private {
 	my $query = $dbh->prepare(q{
 		SELECT c.id, coords(p.x,p.y,p.z), c.landing_tick, c.info, covered
 			,open, dc.username AS dc, u.defense_points,c.member AS uid
-			,u.planet, u.username AS member, u.sms,c.ftid
+			,u.planet, u.username AS member, u.sms,c.ftid,calc
 		FROM calls c 
 		JOIN users u ON c.member = u.uid
 		LEFT OUTER JOIN users dc ON c.dc = dc.uid