,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(Coords => $call->{coords});
$BODY->param(DefensePoints => $call->{defense_points});
$BODY->param(LandingTick => $call->{landing_tick});
$BODY->param(Coords => $call->{coords});
$BODY->param(DefensePoints => $call->{defense_points});
$BODY->param(LandingTick => $call->{landing_tick});
while (my $call = $query->fetchrow_hashref){
if ($call->{defense_points} < $minpoints){
$call->{DefPrio} = 'LowestPrio';
while (my $call = $query->fetchrow_hashref){
if ($call->{defense_points} < $minpoints){
$call->{DefPrio} = 'LowestPrio';