Changeset 115 for trunk/Application/UWebSession.pas

Timestamp:

May 2, 2016, 11:02:45 AM (9 years ago)

Author:

chronos

Message:

• Modified: Updated latest information.
• Fixed: Show ZdechovNET main page instead of Portal main page.

File:

• trunk/Application/UWebSession.pas (modified) (2 diffs)

trunk/Application/UWebSession.pas

@@ -108 +108 @@
             THTMLString(Self.HtmlDocument.Body.SubItems.AddNew(THtmlString.Create)).
               Text := Format(SError, [E.Message]);
-            if Assigned(ModuleBase) then ModuleBase.GeneratePage(Self, Page.Page)
-              else GeneratePageDefault(Self, Page.Page);
+            GeneratePage(Page.Page);
           end;
         end;
@@ -160 +159 @@
     RegisterModule(TModuleFinance.Create(nil), True);
     RegisterModule(TModuleNetwork.Create(nil), True);
-    RegisterModule(TModulePortal.Create(nil), True);
+    //RegisterModule(TModulePortal.Create(nil), True);
     RegisterModule(TModuleIS.Create(nil), True);
     RegisterModule(TModuleNews.Create(nil), True);