my $extra_vars = '';
if (param('cmd') eq 'Cover call'){
$extra_vars = ", covered = TRUE, open = FALSE";
my $extra_vars = '';
if (param('cmd') eq 'Cover call'){
$extra_vars = ", covered = TRUE, open = FALSE";
,undef,$ND::UID,$call->{id})){
$call->{covered} = (param('cmd') eq 'Cover call');
$call->{open} = (param('cmd') =~ /^(Uncover|Open) call$/);
,undef,$ND::UID,$call->{id})){
$call->{covered} = (param('cmd') eq 'Cover call');
$call->{open} = (param('cmd') =~ /^(Uncover|Open) call$/);
$BODY->param(LandingTick => $call->{landing_tick});
$BODY->param(ETA => $call->{landing_tick}-$ND::TICK);
$BODY->param(Info => $call->{info});
$BODY->param(LandingTick => $call->{landing_tick});
$BODY->param(ETA => $call->{landing_tick}-$ND::TICK);
$BODY->param(Info => $call->{info});
if ($call->{covered}){
$BODY->param(Cover => 'Uncover');
}else{
$BODY->param(Cover => 'Cover');
}
if ($call->{open} && !$call->{covered}){
if ($call->{covered}){
$BODY->param(Cover => 'Uncover');
}else{
$BODY->param(Cover => 'Cover');
}
if ($call->{open} && !$call->{covered}){
}
my $fleets = $DBH->prepare(q{
SELECT id,mission,landing_tick,eta, (landing_tick+eta-1) AS back FROM fleets WHERE uid = ? AND (fleet = 0 OR (landing_tick + eta > ? AND landing_tick - eta - 11 < ? ))
}
my $fleets = $DBH->prepare(q{
SELECT id,mission,landing_tick,eta, (landing_tick+eta-1) AS back FROM fleets WHERE uid = ? AND (fleet = 0 OR (landing_tick + eta > ? AND landing_tick - eta - 11 < ? ))