Changeset 108 for trunk/Modules/User/UUser.pas

Timestamp:

Oct 10, 2012, 3:30:34 PM (12 years ago)

Author:

chronos

Message:

• Upraveno: Opět zprovozněno zobrazování oficiálního webu sítě.

File:

• trunk/Modules/User/UUser.pas (modified) (3 diffs)

trunk/Modules/User/UUser.pas

@@ -46 +46 @@
     procedure Login(User: Integer);
     procedure Logout;
+    constructor Create;
   end;
 
@@ -123 +124 @@
 end;
 
+constructor TWebOnlineUser.Create;
+begin
+  User := UnknownUser;
+end;
+
 { TUser }
 
@@ -218 +224 @@
   DbRows: TDbRows;
 begin
+  if Id <> -1 then
   try
     DbRows := TDbRows.Create;