Changeset 114 for trunk/Modules/Portal

Timestamp:

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

Author:

chronos

Message:

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

Location:

trunk/Modules/Portal

Files:

• UModulePortal.pas (modified) (2 diffs)
• UPagePortal.pas (modified) (3 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">' +

trunk/Modules/Portal/UPagePortal.pas

@@ -231 +231 @@
     // Show pannels
     //if(IsInternetAddr()) echo('Internet'); else echo('LAN');
-    //$Output .= $this->InfoBar();
+    // $Output .= $this->InfoBar();
     Output := Output + '<table id="MainTable"><tr>';
     Session.Database.Select(DbRows, 'PanelColumn', '*');
@@ -275 +275 @@
 function TWebPagePortal.OnlineHostList: string;
 begin
-
+  Result := '';
 end;
 
 function TWebPagePortal.UserPanel: string;
 begin
-
+  Result := '';
 end;
 
@@ -299 +299 @@
 function TWebPagePortal.WebcamPanel: string;
 begin
-
+  Result := '';
 end;