Changeset 108 for trunk/Modules/User

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ě.

Location:

trunk/Modules/User

Files:

• UModuleUser.pas (modified) (1 diff)
• UUser.pas (modified) (3 diffs)

trunk/Modules/User/UModuleUser.pas

@@ -62 +62 @@
   User := TWebUser.Create;
   User.Database := ModuleBase.Session.Database;
+  User.HandlerData := ModuleBase.Session;
   UserOnline := TWebOnlineUser.Create;
   UserOnline.Database := ModuleBase.Session.Database;
+  UserOnline.HandlerData := ModuleBase.Session;
   AfterStart;
 end;

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;