X-Git-Url: https://ruin.nu/git/?p=NDIRC.git;a=blobdiff_plain;f=Commands%2FDef.pm;h=80b02fdf454d560b161857085461c3defe577062;hp=1731689e12689e673d06cec3e0d1543e9acbb80c;hb=1ccb344994c1b517c662da9f236cf1c640780177;hpb=ae37bc6b64270f8c65298a36fce1f4bad761231f

diff --git a/Commands/Def.pm b/Commands/Def.pm
index 1731689..80b02fd 100644
--- a/Commands/Def.pm
+++ b/Commands/Def.pm
@@ -55,7 +55,7 @@ sub defcall
 		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
@@ -68,7 +68,6 @@ ORDER BY c.landing_tick;
 			$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.");