Changeset 77 for trunk/Pages/UServerInfoPage.pas

Timestamp:

Jun 18, 2012, 8:48:28 PM (12 years ago)

Author:

chronos

Message:

• Upraveno: Obsluhuj generování stránek dle vlastního seznamu stránek a pokud nenajdeš přímou obsluhu, tak zkus generovat ze souboru.

File:

• trunk/Pages/UServerInfoPage.pas (modified) (1 diff)

trunk/Pages/UServerInfoPage.pas

@@ -34 +34 @@
 procedure TServerInfoPage.DataModuleProduce(HandlerData: THTTPHandlerData);
 begin
-  HandlerData.Session.Values['Test'] := 'Tst';
-  MainModule.WebApp1.HTTPServer.ServerInfo(HandlerData);
-  MainModule.GeneratePage(HandlerData, Self);
+  with MainModule do begin
+    LoadUserInfo(HandlerData);
+    HandlerData.Session.Values['Test'] := 'Tst';
+    WebApp1.HTTPServer.ServerInfo(HandlerData);
+    GeneratePage(HandlerData, Self);
+  end;
 end;