Changeset 34 for trunk/WebServer/UHTTPSessionMySQL.pas

Timestamp:

Sep 13, 2010, 11:45:27 AM (14 years ago)

Author:

george

Message:

• Opraveno: Načítání session.
• Opraveno: Úniky paměti.

File:

• trunk/WebServer/UHTTPSessionMySQL.pas (modified) (1 diff)

trunk/WebServer/UHTTPSessionMySQL.pas

@@ -92 +92 @@
     if DbRows.Count > 0 then
       DbRows2 := SqlDatabase.Query('UPDATE `HTTPSession` SET `Variables`="' + HandlerData.Session.Text
-        + '" WHERE `Identification`="' + HandlerData.SessionId + '", `Time` = NOW()')
+        + '", `Time` = NOW() WHERE `Identification`="' + HandlerData.SessionId + '"')
     else DbRows2 := SqlDatabase.Query('INSERT INTO `HTTPSession` (`Time`,  `Variables`, `Identification`) VALUES (' +
     'NOW(), "' + HandlerData.Session.Text + '", "' + HandlerData.SessionId + '")');