From: minima <minima>
Date: Wed, 23 Feb 2005 16:43:28 +0000 (+0000)
Subject: fix format string error in gen_DXProt
X-Git-Tag: R_1_52~153
X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=652422252c199b15fbbc500a4fff6f31dcf3b8d1;p=spider.git

fix format string error in gen_DXProt
---

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};
 }