From 34286e49320e784a58c364ffb7588bf9d0629163 Mon Sep 17 00:00:00 2001
From: DF6FR <noreply@git.fkurz.net>
Date: Thu, 24 Sep 2009 20:54:31 +0000
Subject: [PATCH] Change of QSL-Info possible if QSO chosen from log window.

---
 yfk        |  2 +-
 yfksubs.pl | 15 +++++++++++++--
 2 files changed, 14 insertions(+), 3 deletions(-)

diff --git a/yfk b/yfk
index 169a1f2..689507e 100755
--- a/yfk
+++ b/yfk
@@ -1310,7 +1310,7 @@ while ($aw == 2) {
 			$qso[$_] = '';				# sqso
 		}
 		@sqso = ();
-		$posnr = 0;			# forget last cursor position
+		$posnr = 1;			# forget last cursor position
 		$aw = 1;						# back to list
 	}
 	else {
diff --git a/yfksubs.pl b/yfksubs.pl
index c8270ba..860b1fc 100644
--- a/yfksubs.pl
+++ b/yfksubs.pl
@@ -644,6 +644,14 @@ sub saveqso {
 			shift,shift,shift,shift);   # get the @qso array 
 	my $editnr = shift;					# QSO we edit
 
+	if ($editnr) {				# if existing QSO try get qslinfo
+		my $n = $dbh->prepare("SELECT `QSLINFO` FROM log_$mycall
+						WHERE `NR`='$editnr';");
+		$n->execute();
+		my @qslinfo = $n->fetchrow_array(); # local variable for info array
+		$qslinfo = $qslinfo[0];
+	}
+
 	# Cute date/times, just in case.
 	$qso[1] = substr($qso[1],0,8);
 	$qso[2] = substr($qso[2],0,4);
@@ -741,6 +749,9 @@ sub saveqso {
 					$qso[12] = $1." ".$3;
 			}
 
+			# trim remark
+			$qso[12] =~ s/\s*$//;
+
 			# we are now ready to save the QSO, but we have to check if it's a
 			# new QSO or if we are changing an existing QSO.
 			
@@ -750,8 +761,8 @@ sub saveqso {
 						`T_ON`='$qso[2]', `T_OFF`='$qso[3]', `BAND`='$qso[4]',
 						`MODE`='$qso[5]', `QTH`='$qso[6]', `NAME`='$qso[7]',
 						`QSLS`='$qso[8]', `QSLR`='$qso[9]', `RSTS`='$qso[10]',
-						`RSTR`='$qso[11]', `REM`='$qso[12]', `PWR`='$qso[13]'
-						WHERE NR='$editnr';");
+						`RSTR`='$qso[11]', `REM`='$qso[12]', `PWR`='$qso[13]',
+						`QSLINFO`='$qslinfo' WHERE NR='$editnr';");
 			}
 			else {						# new QSO
 				$dbh->do("INSERT INTO log_$mycall