Changeset 114 for trunk/Modules

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.

Location:

trunk/Modules

Files:

• Portal/UModulePortal.pas (modified) (2 diffs)
• Portal/UPagePortal.pas (modified) (3 diffs)
• ZdechovNET/UInternetPage.pas (modified) (1 diff)

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;
 

trunk/Modules/ZdechovNET/UInternetPage.pas

@@ -41 +41 @@
 
       '<table class="WideTable">' +
-      '<tr><th>Označení</th><th>Rychlost</th><th>Agregace</th><th>Cena [Kč/měsíc]</th></tr>' +
-      '<tr><td>Zdarma</td><td align="center">128 kbit/s</td><td align="center"></td><td align="center">0</td></tr>' +
-      '<tr><td>Pomalejší</td><td align="center">4 Mbit/s</td><td align="center">1:20</td><td align="center">190</td></tr>' +
-      '<tr><td>Pomalý</td><td align="center">8 Mbit/s</td><td align="center">1:20</td><td align="center">260</td></tr>' +
-      '<tr><td>Střední</td><td align="center">16 Mbit/s</td><td align="center">1:20</td><td align="center">360</td></tr>' +
-      '<tr><td>Rychlý</td><td align="center">32 Mbit/s</td><td align="center">1:20</td><td align="center">520</td></tr>' +
-      '<tr><td>Rychlejší</td><td align="center">64 Mbit/s</td><td align="center">1:20</td><td align="center">750</td></tr>' +
+      '<tr><th>Označení</th><th>Minimální rychlost</th><th>Maximální rychlost</th><th>Cena [Kč/měsíc]</th></tr>' +
+      '<tr><td>Zdarma</td><td align="center">0 kbit/s</td><td align="center">256 kbit/s</td><td align="center">0</td></tr>' +
+      '<tr><td>Internet Garant 200k</td><td align="center">200 kbit/s</td><td align="center">140 Mbit/s</td><td align="center">190</td></tr>' +
+      '<tr><td>Internet Garant 500k</td><td align="center">500 kbit/s</td><td align="center">140 Mbit/s</td><td align="center">260</td></tr>' +
+      '<tr><td>Internet Garant 1M</td><td align="center">1 Mbit/s</td><td align="center">140 Mbit/s</td><td align="center">360</td></tr>' +
+      '<tr><td>Internet Garant 3M</td><td align="center">3 Mbit/s</td><td align="center">140 Mbit/s</td><td align="center">520</td></tr>' +
+      '<tr><td>Internet Garant 7M</td><td align="center">7 Mbit/s</td><td align="center">140 Mbit/s</td><td align="center">750</td></tr>' +
       '</table>' +
       '<br/>' +
+      'Minimální rychlost je garantovaná pro účastníka vyhrazená rychlost, pod kterou by přenosová rychlost neměla klesat.<br/>' +
+      'Maximální rychlost je volná kapacita nevyužitá ostatními účastníky. ' +
+      'Reálné maximum závisí na maximální kapacitě sítě a maximální dostupné kapacitě po trase k účastníkovi.<br/>' +
+      'Max. rychlosti pro jednotlivé technologie:<br/>' +
+      '<ul>' +
+      '<li>Kabelové připojení - 100 Mbit/s nebo 1 Gbit/s</li>' +
+      '<li>Bezdrátové připojení Wifi 802.11g - 20 Mbit/s</li>' +
+      '<li>Bezdrátové připojení Wifi 802.11n - 100 Mbit/s</li>' +
+      '<li>Bezdrátové připojení Wifi 802.11ac - 200 Mbit/s</li>' +
+      '</ul>' +
       'Rychlost všech tarifů je symetrická, není omezován objem přenášených dat, ceny včetně DPH.<br/>' +
       '<br/>' +
-      '<i>Aktualizováno: 1.8.2011</i>';
+      '<i>Aktualizováno: 1.5.2016</i>';
     end;
     GeneratePage(Self);