Makes qsl info uppercase if entered otherwise.

14 years ago · 51239ccc46
1 changed files with 1 additions and 0 deletions
--- a/yfksubs.pl
+++ b/yfksubs.pl
@ -697,6 +697,7 @@ sub saveqso {
 			if ($qso[12] =~ /(.*)via:(\w+)(.*)/){ # QSL info in remarks field
 				$qslinfo = $2;				# save QSL-info
 				$qso[12] = $1." ".$3;		# cut qsl-info from remarks field
+				$qslinfo =~ tr/[a-z]/[A-Z]/; # make qsl-info uppercase
 			}
 			
 			# searching for different ITUZ in remarks-field: