if the QTH field contains a Maidenhead locator, save it in the GRID database field

yfksubs.pl

@@ -1059,6 +1059,12 @@ sub saveqso {
                     $qso[12] = $1." ".$3;
             }
 
+            # searching for a GRID in the QTH field
+            if ($qso[6] =~ /^([A-Z]{2}[0-9]{2}[A-Z]{2}|[A-Z]{2}[0-9]{2})$/i){ 
+                    $grid = uc($1);
+                    $qso[6] = uc($1);
+            }
+
             # trim remark
             $qso[12] =~ s/\s*$//;