Changeset 100 for trunk/Packages/CoolWeb/Modules/UUser.pas

Timestamp:

Oct 2, 2012, 2:52:20 PM (12 years ago)

Author:

chronos

Message:

• Upraveno: V balíčku CoolWeb některé seznamy změněny z typu TStringList na TListString.

File:

• trunk/Packages/CoolWeb/Modules/UUser.pas (modified) (2 diffs)

trunk/Packages/CoolWeb/Modules/UUser.pas

@@ -61 +61 @@
   try
     DbRows := TDbRows.Create;
+    if HandlerData.Request.Cookies.SearchKey('SessionId') <> -1 then begin
     Database.Query(DbRows, 'SELECT * FROM `UserOnline` WHERE `SessionId`="' +
       HandlerData.Request.Cookies.Values['SessionId'] + '"');
@@ -75 +76 @@
       User := 1;
     end;
+
+    end;
   finally
     DbRows.Free;