X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?p=spider.git;a=blobdiff_plain;f=perl%2Fcreate_prefix.pl;h=d87cf14412ec357701757943e0ae7ce318006617;hp=f1a0b554856f132be04df0a5b653f621ff6a440e;hb=7d4b15681464d77945e7ea78ef60ed3305d57d95;hpb=77592822c77e2a3696997d4b958ecc11956c5e44

diff --git a/perl/create_prefix.pl b/perl/create_prefix.pl
index f1a0b554..d87cf144 100755
--- a/perl/create_prefix.pl
+++ b/perl/create_prefix.pl
@@ -25,6 +25,7 @@ use SysVar;
 
 use Data::Dumper;
 use DXUtil;
+use DXBearing;
 
 use strict;
 
@@ -172,6 +173,7 @@ foreach my $l (sort {$a <=> $b} keys %locn) {
 	$longd = 0-$longd if (uc $longl) eq 'W'; 
 	$latd += ($latm/60);
 	$latd = 0-$latd if (uc $latl) eq 'S';
+	my $qra = DXBearing::lltoqra($latd, $longd);
 	print OUT " name => '$name',";
 	print OUT " dxcc => $dxcc,";
 	print OUT " itu => $itu,";
@@ -179,6 +181,7 @@ foreach my $l (sort {$a <=> $b} keys %locn) {
 	print OUT " utcoff => $utcoff,";
 	print OUT " lat => $latd,";
 	print OUT " long => $longd";
+	print OUT " qra => $qra";
 	print OUT " }, 'Prefix'),\n";
 }
 print OUT ");\n\n";