Changeset 99 for trunk/Pages/UPageAdmin.pas

Timestamp:

Oct 2, 2012, 2:12:16 PM (12 years ago)

Author:

chronos

Message:

• Přidáno: Modul seznamu televizních kanálů TV.

File:

• trunk/Pages/UPageAdmin.pas (modified) (4 diffs)

trunk/Pages/UPageAdmin.pas

@@ -15 +15 @@
     procedure DataModuleProduce(HandlerData: THTTPHandlerData);
   private
+    procedure HandleReload(HandlerData: THTTPHandlerData);
     procedure HandleModuleList(HandlerData: THTTPHandlerData);
     procedure HandleInstall(HandlerData: THTTPHandlerData);
@@ -32 +33 @@
 
 uses
-  UCore, UXmlClasses, UHtmlClasses, UUtils, USqlDatabase, UModularSystem;
+  UCore, UXmlClasses, UHtmlClasses, UUtils, USqlDatabase, UModularSystem,
+  UModuleSystem;
 
 {$R *.lfm}
@@ -50 +52 @@
       if PageName = '' then PageName := 'modulelist';
       if PageName = 'modulelist' then HandleModuleList(HandlerData)
+      else if PageName = 'reload' then HandleReload(HandlerData)
       else if PageName = 'install' then HandleInstall(HandlerData)
       else if PageName = 'uninstall' then HandleUninstall(HandlerData);
     end;
     GeneratePage(Self);
+  end;
+end;
+
+procedure TPageAdmin.HandleReload(HandlerData: THTTPHandlerData);
+begin
+  with TWebSession(HandlerData) do begin
+    with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
+      TModuleSystem(Core.ModuleManager.FindModuleByName('System')).UpdateModuleList;
+      Text := 'Seznam modulů synchronizován';
+      Text := Text + '<br/><br/>';
+      HandleModuleList(HandlerData);
+    end;
   end;
 end;
@@ -76 +91 @@
         Text := Text + '</td></tr>';
       end;
+      Text := Text + '</table>';
+      Text := Text + MakeLink('Obnovit seznam modulů', NavigationLink('/administration/reload'));
     end;
   end;