[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

@@ -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