X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FPrefix.pm;h=3f1341ad6fd169bbbf5a8ceaee42b214fab1e945;hb=fa583f75b6979288c03962354a9be1fdff6a30ad;hp=48206cea6b4cce0a861b4dcc775b3e5789bdefa8;hpb=a9f28e80e3936421f830bba0eacffd3bb509a9cb;p=spider.git

diff --git a/perl/Prefix.pm b/perl/Prefix.pm
index 48206cea..3f1341ad 100644
--- a/perl/Prefix.pm
+++ b/perl/Prefix.pm
@@ -481,9 +481,13 @@ sub cty_data
 	
 	my @dxcc = extract($call);
 	if (@dxcc) {
-		return ($dxcc[1]->dxcc, $dxcc[1]->itu, $dxcc[1]->cq, ($dxcc[1]->state||''), ($dxcc[1]->city||''));
+		my $state = $dxcc[1]->state || '';
+		my $city = $dxcc[1]->city || '';
+		my $name = $dxcc[1]->name || '';
+		
+		return ($dxcc[1]->dxcc, $dxcc[1]->itu, $dxcc[1]->cq, $state, $city, $name);
 	}
-	return (666,0,0,'','');		
+	return (666,0,0,'','','Pirate-Country-QQ');		
 }
 
 my %valid = (