fix finding lotw stations locations

yfk

@@ -1237,7 +1237,7 @@ while (($status == 7) || ($status == 14)) {
 
         my @lotwlocations = &getlotwlocations();
 
-        if ($#lotwlocations) {
+        if (length(@lotwlocations)) {
             addstr($whelp, 0,0, 'LoTW upload...'.' 'x50);
             refresh($whelp);
             addstr($wmain,12,17,"Select station location for signing with tqsl!");

yfksubs.pl

@@ -6168,7 +6168,7 @@ sub getlotwlocations {
     my @ret;
 
     foreach (@a) {
-        if ($_ =~ /$mycall:(.*)/i) {
+        if ($_ =~ /^$mycall:(.*)/i) {
             push @ret, $1;
         }
     }