Changeset 149 for trunk/Modules/ZdechovNET/DocumentsPage.pas

Timestamp:

Feb 4, 2024, 2:14:37 PM (4 months ago)

Author:

chronos

Message:

• Modified: Update Common package.
• Added: Project group.
• Modified: Assign ModuleUser to modules which use it in later time.

File:

• trunk/Modules/ZdechovNET/DocumentsPage.pas (modified) (2 diffs)

trunk/Modules/ZdechovNET/DocumentsPage.pas

@@ -12 +12 @@
   TDocumentsPage = class(TWebPage)
     procedure DataModuleProduce(HandlerData: THTTPHandlerData);
-  public
-    ModuleUser: TModuleUser;
-  end; 
+  end;
 
 var
@@ -30 +28 @@
 
 procedure TDocumentsPage.DataModuleProduce(HandlerData: THTTPHandlerData);
+var
+  ModuleUser: TModuleUser;
 begin
   with TWebSession(HandlerData) do begin
+    ModuleUser := TModuleUser(ModuleManager.FindModuleByName('User'));
     ModuleUser.LoadUserInfo;
     with HtmlDocument.Body, SubItems.AddString do begin