Changeset 132 for trunk/Modules/Portal

Timestamp:

Mar 18, 2022, 3:47:27 PM (3 years ago)

Author:

chronos

Message:

• Modified: Code cleanup.

Location:

trunk/Modules/Portal

Files:

• UModulePortal.pas (modified) (3 diffs)
• UPagePortal.pas (modified) (3 diffs)

trunk/Modules/Portal/UModulePortal.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, UModularSystem, SpecializedDictionary, USqlDatabase,
+  Classes, SysUtils, UModularSystem, USqlDatabase,
   UUtils, UWebSession, SpecializedList, UUser, UWebPage, UHtmlClasses,
   UModuleBase, UModuleUser, UModuleNews;
@@ -85 +85 @@
 var
   DbRows: TDbRows;
-  Data: TDictionaryStringString;
 begin
   try
     DbRows := TDbRows.Create;
-    Data := TDictionaryStringString.Create;
 
     Core.CommonDatabase.Query(DbRows,
@@ -140 +138 @@
 
   finally
-    Data.Free;
     DbRows.Free;
   end;
-  inherited Install;
+  inherited;
 end;
 

trunk/Modules/Portal/UPagePortal.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, UWebPage, UHTTPServer, USqlDatabase, UUtils,
-  SpecializedDictionary, UWebSession, SpecializedList, UHtmlClasses,
-  UModularSystem, UModuleUser, UModuleNews;
+  SpecializedDictionary, UWebSession, UHtmlClasses, UModularSystem, UModuleUser,
+  UModuleNews;
 
 type
@@ -18 +18 @@
   private
     Session: TWebSession;
-    function ShowPanel(Title, Content: string; Menu: TListString = nil): string;
+    function ShowPanel(Title, Content: string; Menu: TStrings = nil): string;
     function SystemMessage(Title, Text: string): string;
     function ShowLinks(GroupId: Integer): string;
@@ -283 +283 @@
 end;
 
-function TWebPagePortal.ShowPanel(Title, Content: string; Menu: TListString): string;
+function TWebPagePortal.ShowPanel(Title, Content: string; Menu: TStrings): string;
 var
   I: Integer;