From a8314298c528eeb53d340ae1f9ee94fe9bd4c32c Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Beno=C3=AEt=20Minisini?= <gambas@users.sourceforge.net>
Date: Sun, 6 Nov 2016 00:26:32 +0000
Subject: [PATCH] [GB.WEB] * BUG: Don't modify DB.Current when sessions are
 managed with sqlite databases.

git-svn-id: svn://localhost/gambas/trunk@7957 867c0c6c-44f3-4631-809d-bfa615b0a4ec
---
 comp/src/gb.web/.src/SqliteSessionManager.class | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/comp/src/gb.web/.src/SqliteSessionManager.class b/comp/src/gb.web/.src/SqliteSessionManager.class
index fd80a4edb..34a466ea2 100644
--- a/comp/src/gb.web/.src/SqliteSessionManager.class
+++ b/comp/src/gb.web/.src/SqliteSessionManager.class
@@ -38,11 +38,14 @@ End
 Public Sub Load() As Boolean
   
   Dim rConf As Result
+  Dim hSave As Connection
 
   If Not Exist($sPath) Then Goto _ABANDON
   
   Me.Size = Stat($sPath).Size
   
+  hSave = DB.Current
+  
   $hConn = New Connection
   $hConn.Type = "sqlite"
   $hConn.Host = File.Dir($sPath)
@@ -50,6 +53,8 @@ Public Sub Load() As Boolean
   
   $hConn.Open
   
+  DB.Current = hSave
+  
   rConf = $hConn.Find("config")
 
   $eStartup = rConf!fStartup