From 652422252c199b15fbbc500a4fff6f31dcf3b8d1 Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Wed, 23 Feb 2005 16:43:28 +0000
Subject: [PATCH] fix format string error in gen_DXProt

---
 perl/Thingy/Dx.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/perl/Thingy/Dx.pm b/perl/Thingy/Dx.pm
index 35ff5214..e2f9776f 100644
--- a/perl/Thingy/Dx.pm
+++ b/perl/Thingy/Dx.pm
@@ -68,7 +68,7 @@ sub gen_DXProt
 		my $text = $sd->[3] || ' ';
 		$text =~ s/\^/\%5E/g;
 		my $t = $sd->[2];
-		$thing->{DXProt} = sprintf "PC11^%.1f^$sd->[1]^%s^%s^$text^$sd->[4]^$sd->[7]^$hops^~", $sd->[0], cldate($t), ztime($t);
+		$thing->{DXProt} = sprintf "PC11^%.1f^$sd->[1]^%s^%s^%s^$sd->[4]^$sd->[7]^$hops^~", $sd->[0], cldate($t), ztime($t), $text;
 	}
 	return $thing->{DXProt};
 }
-- 
2.43.0