From cb0d71fb6feb08dee0f2ff2925e363f04f1397da Mon Sep 17 00:00:00 2001
From: OH1KH <oh1kh@sral.fi>
Date: Tue, 12 Nov 2019 09:28:39 +0200
Subject: [PATCH] bugfix: used wrong eqsl_rcvd info + Prevent multiselect

---
 src/cqrlog.lpi | 4 ++--
 src/fMain.pas  | 9 ++++++---
 2 files changed, 8 insertions(+), 5 deletions(-)

diff --git a/src/cqrlog.lpi b/src/cqrlog.lpi
index 70befdd..3222a01 100644
--- a/src/cqrlog.lpi
+++ b/src/cqrlog.lpi
@@ -39,7 +39,7 @@
     </PublishOptions>
     <RunParams>
       <local>
-        <CommandLineParams Value="--DEBUG=0"/>
+        <CommandLineParams Value="--DEBUG=1"/>
         <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
       </local>
       <environment>
@@ -52,7 +52,7 @@
       <Modes Count="1">
         <Mode0 Name="default">
           <local>
-            <CommandLineParams Value="--DEBUG=0"/>
+            <CommandLineParams Value="--DEBUG=1"/>
             <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
           </local>
           <environment>
diff --git a/src/fMain.pas b/src/fMain.pas
index f135346..59989b3 100644
--- a/src/fMain.pas
+++ b/src/fMain.pas
@@ -805,9 +805,12 @@ end;
 
 procedure TfrmMain.popWebSearchPopup(Sender: TObject);
 begin
-  mnueQSLView.Visible := pos('E',dmData.qCQRLOG.FieldByName('qsl_r').AsString)>0;
-  //writeln(dmData.qCQRLOG.FieldByName('callsign').AsString,' ',dmData.qCQRLOG.FieldByName('qsl_r').AsString );
-end;
+    mnueQSLView.Visible :=  ((pos('E',dmData.qCQRLOG.FieldByName('eqsl_qsl_rcvd').AsString)>0)
+                             and (dbgrdMain.SelectedRows.Count = 1));
+    if dmData.DebugLevel>=1 then writeln( dbgrdMain.SelectedRows.Count,' ',
+                                         dmData.qCQRLOG.FieldByName('callsign').AsString,' ',
+                                         dmData.qCQRLOG.FieldByName('eqsl_qsl_rcvd').AsString );
+ end;
 
 procedure TfrmMain.Timer1Timer(Sender: TObject);
 var