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

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.

File:

• trunk/Modules/Portal/UPagePortal.pas (modified) (3 diffs)

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;