From b13ce034beed55e476c4e723e20606fe6272f52d Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Mon, 26 Jul 2010 19:16:59 +0000
Subject: [PATCH] Store last session name at disconnect time instead when when
 connecting. Fixes issue #2102.

---
 source/main.pas | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/source/main.pas b/source/main.pas
index f21e17f8..52ddff5e 100644
--- a/source/main.pas
+++ b/source/main.pas
@@ -1804,6 +1804,9 @@ begin
   OpenRegistry(SessionName);
   MainReg.WriteString( REGNAME_LASTUSEDDB, Connection.Database );
   MainReg.WriteString( REGNAME_DATABASE_FILTER, comboDBFilter.Items.Text );
+  // Save last session name in root folder
+  OpenRegistry;
+  MainReg.WriteString(REGNAME_LASTSESSION, SessionName);
 
   // Post pending UPDATE
   Results := GridResult(DataGrid);
@@ -2666,9 +2669,6 @@ begin
       // Save "refused" counter
       OpenRegistry(Session);
       MainReg.WriteInteger(REGNAME_CONNECTCOUNT, GetRegValue(REGNAME_CONNECTCOUNT, 0, Session)+1);
-      // Save last session name in root folder
-      OpenRegistry;
-      MainReg.WriteString(REGNAME_LASTSESSION, Session);
     end;
 
     Result := True;