Changeset 114 for trunk/Modules/Portal/UModulePortal.pas

Timestamp:

May 1, 2016, 11:13:57 PM (8 years ago)

Author:

chronos

Message:

• Fixed: Build under FPC 3.0 and Lazarus 1.6.
• Modified: Updated internet tariffs page.

File:

• trunk/Modules/Portal/UModulePortal.pas (modified) (2 diffs)

trunk/Modules/Portal/UModulePortal.pas

@@ -253 +253 @@
 
       TitleTag := THtmlString.Create;
-      TitleTag.Text := ShowHeader(ASession);
+      //TitleTag.Text := ShowHeader(ASession);
       HtmlDocument.Body.SubItems.Insert(0, TitleTag);
       TitleTag := THtmlString.Create;
       TitleTag.Text := ShowFooter(ASession);
-      HtmlDocument.Body.SubItems.Add(TitleTag);
+      HtmlDocument.Body.SubItems.Insert(0, TitleTag);
       //Page.Page.OnProduce(HandlerData);
       HtmlDocument.Title := Page.Caption;
@@ -275 +275 @@
 function TModulePortal.ShowFooter(Session: TWebSession): string;
 begin
+  Result := '';
   //Time := Round(Now - $ScriptTimeStart, 2);
   Result := Result + '<div id="Footer">' +