Don't interpret callsigns as grid fields

To look up a 6 character grid square, use e.g. JN58SE/G in the
callsign field instead.

Closes #9 - tnx dl6mhc

yfk

@@ -345,9 +345,11 @@ if ($af == 1) {                            # READ CALLSIGN FIELD
     # PWR fields are automatically filled like specified in the config file
     if ($qso[0] ne $workcall) {            # callsign has been changed!
 
-        # not a new callsign, but a GRID: Look up grid info and clear callsign
-        # field.
-        if ($qso[0] =~ /([A-Z]{2}[0-9]{2}[A-Z]{2}|[A-Z]{2}[0-9]{2})/) {
+        # not a new callsign, but a GRID: Look up grid info and clear
+        # callsign field. (full 6 letter grids must be suffixed with /G
+        # to avoid )
+        if ($qso[0] =~ /^([A-Z]{2}[0-9]{2}[A-Z]{2}\/G|[A-Z]{2}[0-9]{2})$/) {
+            $qso[0] =~ s/\/G//g;
             &gridinfo($qso,$winfo,$wi,$wqsos,$editnr);
             $af = 1;
             $qso[0] = "";

yfksubs.pl

@@ -5463,6 +5463,9 @@ sub lotwimport {
         }
         elsif ($line =~ /GRIDSQUARE:\d+>(\w+)/) {
             $grid= $1;
+            if (length($grid) > 6) {
+                $grid = substr($grid, 0, 6);
+            }
         }
         elsif ($line =~ /STATE:\d+>(\w+)/) {
             $state= $1;