Changeset 94 for trunk/UCore.pas

Timestamp:

Sep 7, 2012, 10:43:02 PM (12 years ago)

Author:

chronos

Message:

• Opraveno: Zobrazení stránek s a bez modulu User.

File:

• trunk/UCore.pas (modified) (1 diff)

trunk/UCore.pas

@@ -130 +130 @@
 procedure TWebSession.LoadUserInfo;
 begin
-  User.HandlerData := Self;
-  UserOnline.HandlerData := Self;
-  UserOnline.Update;
-  User.Id := UserOnline.User;
-  User.Load;
+  if Core.ModuleManager.ModuleRunning('User') then begin
+    User.HandlerData := Self;
+    UserOnline.HandlerData := Self;
+    UserOnline.Update;
+    User.Id := UserOnline.User;
+    User.Load;
+  end;
 end;