my $st = $dbh->prepare(q{
SELECT status
,c.landing_tick - (SELECT value::integer FROM misc WHERE id = 'TICK') AS eta
- ,concat(i.shiptype||'/') AS shiptype
+ ,array_to_string(array_agg(i.shiptype),'/') AS shiptype
FROM calls c
JOIN incomings i USING (call)
LEFT OUTER JOIN users dc ON dc.uid = c.dc
$c->reply("No call with id: $callnr");
return;
}
- chop($call->{shiptype});
$callinfo = "(Anti $call->{shiptype} ETA: $call->{eta})";
if($call->{status} eq 'Covered'){
$c->reply("Call <b>$callnr</b> $callinfo is covered.");