Changeset 103 for trunk/Pages

Timestamp:

Oct 8, 2012, 8:48:16 AM (12 years ago)

Author:

chronos

Message:

• Upraveno: TWebSession zobecněno pro možnost implementace více modulů s obsluhou vstupní stránky.

Location:

trunk/Pages

Files:

• UPageAdmin.pas (modified) (1 diff)
• UServerInfoPage.pas (modified) (2 diffs)

trunk/Pages/UPageAdmin.pas

@@ -34 +34 @@
 uses
   UCore, UXmlClasses, UHtmlClasses, UUtils, USqlDatabase, UModularSystem,
-  UModuleSystem;
+  UModuleSystem, UWebSession;
 
 {$R *.lfm}

trunk/Pages/UServerInfoPage.pas

@@ -28 +28 @@
 
 uses
-  UCore;
+  UCore, UWebSession;
 
 { TServerInfoPage }
@@ -37 +37 @@
     LoadUserInfo;
     Session.Values['Test'] := 'Tst';
-    MainModule.WebApp1.HTTPServer.ServerInfo(HandlerData);
+    TCore(MainModule).WebApp1.HTTPServer.ServerInfo(HandlerData);
     GeneratePage(Self);
   end;