Changeset 155

Timestamp:

Jan 15, 2025, 12:04:49 PM (2 weeks ago)

Author:

chronos

Message:

• Modified: Updated IPTV prices.

Location:

trunk

Files:

• Modules/ZdechovNET/AboutPage.pas (modified) (1 diff)
• Modules/ZdechovNET/IPTVPage.pas (modified) (3 diffs)
• ReadMe.txt (modified) (1 diff)
• ZdechovNET.lpi (modified) (2 diffs)

trunk/Modules/ZdechovNET/AboutPage.pas

@@ -79 +79 @@
 
       Text := Text + '<strong>Počty zákazníků:</strong><br/>' +
-        'Připojených domácností v obci: 96<br/>' +
+        'Připojených domácností v obci: 80<br/>' +
         '<br/>' +
         '<strong>Technické parametry sítě</strong><br/>' +
-        'Internetové připojení: 250/250 Mbit/s, vyhrazené, symetrické, bez agregace, bez omezení přenesených dat, přes společnost <a href="http://www.inext.cz/">Internext 2000</a><br/>' +
+        'Internetové připojení: 250/250 Mbit/s, vyhrazené, symetrické, bez agregace, bez omezení přenesených dat, přes společnost <a href="https://www.internext.cz/">Internext 2000</a><br/>' +
         'Pokrytí obce signálem: asi 90%<br/>' +
         'V připojených domácnostech celkem 246 občanů ze všech 600 (41 %)<br/>' +
         '<br/>' +
-        '<i>Aktualizováno: 13.1.2024</i>';
+        '<i>Aktualizováno: 15.1.2025</i>';
       Text := Text + '</td><td style="vertical-align: top;" class="News">';
       Text := Text + '<strong>Novinky:</strong><br/>';

trunk/Modules/ZdechovNET/IPTVPage.pas

@@ -42 +42 @@
 
 uses
-  Core, HtmlClasses, WebSession;
+  Core, HtmlClasses, WebSession, Utils;
 
 { TChannels }
@@ -252 +252 @@
       '<li>možnost záznamu pořadů</li>' +
       '<li>televizi lze sledovat přes set-top box, Smart TV Samsung, LG a Android, tablet, smartphone nebo internetový prohlížeč</li>' +
-      '<li>lze spárovat až 4 zařízení na jeden účet</li>' +
+      '<li>lze spárovat až 8 zařízení na jeden účet</li>' +
+      '<li>možno sledovat ze dvou zařízení souběžně</li>' +
       '<li>vyzkoušení na měsíc zdarma</li>' +
       '<li>převzaté vysílání zajišťuje společnost <a href="https://www.4net.tv">4NET.TV services s.r.o.</a></li>' +
-      '<li>pro provoz služby stačí i nejnižší internetový tarif Internet 20M za 190 Kč/měsíc</li>' +
+      '<li>pro provoz služby stačí i nejnižší internetový tarif ' + MakeLink('Internet 40 (250)', NavigationLink('/internet/')) + ' za 190 Kč/měsíc</li>' +
       '</ul><br/>' +
 
       '<h3>Základní balíčky</h3>' +
       '<table class="WideTable"><tr><th>Balíček</th><th>Cena [Kč/měsíc]</th><th>Počet kanálů</th><th>Kanály</th></tr>' +
-      Row(['Basic', '144', IntToStr(Channels.GetCountByGroup(cpBasic)), Channels.GetNamesByGroup(cpBasic)]) +
-      Row(['Basic + tématika', '157', IntToStr(Channels.GetCountByGroup(cpBasic)), Channels.GetNamesByGroup(cpBasic)]) +
-      Row(['Standard', '460', IntToStr(Channels.GetCountByGroup(cpStandard)), Channels.GetNamesByGroup(cpStandard)]) +
-      Row(['Max', '624', IntToStr(Channels.GetCountByGroup(cpMax)), Channels.GetNamesByGroup(cpMax)]) +
+      Row(['Basic', '166', IntToStr(Channels.GetCountByGroup(cpBasic)), Channels.GetNamesByGroup(cpBasic)]) +
+      Row(['Standard', '491', IntToStr(Channels.GetCountByGroup(cpStandard)), Channels.GetNamesByGroup(cpStandard)]) +
+      Row(['Max', '654', IntToStr(Channels.GetCountByGroup(cpMax)), Channels.GetNamesByGroup(cpMax)]) +
       '</table>' +
-      'Balíček Basic obsahuje stejné kanály jako Basic + tématika. Pro možnost volby tématických balíčků je ale nutné mít balíček Basic + tématika.<br/>' +
+      '<br/>' +
 
       '<h3>Tématické balíčky</h3>' +
       '<table class="WideTable"><tr><th>Balíček</th><th>Cena [Kč/měsíc]</th><th>Počet kanálů</th><th>Kanály</th></tr>' +
-      Row(['Film', '53', IntToStr(Channels.GetCountByGroup(cpFilm)), Channels.GetNamesByGroup(cpFilm)]) +
-      Row(['Superbox', '158', IntToStr(Channels.GetCountByGroup(cpSuperBox)), Channels.GetNamesByGroup(cpSuperBox)]) +
-      Row(['Sport', '146', IntToStr(Channels.GetCountByGroup(cpSport)), Channels.GetNamesByGroup(cpSport)]) +
-      Row(['Dětské', '40', IntToStr(Channels.GetCountByGroup(cpDetske)), Channels.GetNamesByGroup(cpDetske)]) +
-      Row(['Česky', '45', IntToStr(Channels.GetCountByGroup(cpCesky)), Channels.GetNamesByGroup(cpCesky)]) +
-      Row(['Láska', '60', IntToStr(Channels.GetCountByGroup(cpLaska)), Channels.GetNamesByGroup(cpLaska)]) +
-      Row(['Zpravodaj', '19', IntToStr(Channels.GetCountByGroup(cpZpravodaj)), Channels.GetNamesByGroup(cpZpravodaj)]) +
-      Row(['Dokument', '136', IntToStr(Channels.GetCountByGroup(cpDokument)), Channels.GetNamesByGroup(cpDokument)]) +
-      Row(['Leo TV', '49', IntToStr(Channels.GetCountByGroup(cpLeoTv)), Channels.GetNamesByGroup(cpLeoTv)]) +
+      Row(['Film', '64', IntToStr(Channels.GetCountByGroup(cpFilm)), Channels.GetNamesByGroup(cpFilm)]) +
+      Row(['Superbox', '170', IntToStr(Channels.GetCountByGroup(cpSuperBox)), Channels.GetNamesByGroup(cpSuperBox)]) +
+      Row(['Sport', '158', IntToStr(Channels.GetCountByGroup(cpSport)), Channels.GetNamesByGroup(cpSport)]) +
+      Row(['Dětské', '53', IntToStr(Channels.GetCountByGroup(cpDetske)), Channels.GetNamesByGroup(cpDetske)]) +
+      Row(['Česky', '57', IntToStr(Channels.GetCountByGroup(cpCesky)), Channels.GetNamesByGroup(cpCesky)]) +
+      Row(['Láska', '72', IntToStr(Channels.GetCountByGroup(cpLaska)), Channels.GetNamesByGroup(cpLaska)]) +
+      Row(['Zpravodaj', '31', IntToStr(Channels.GetCountByGroup(cpZpravodaj)), Channels.GetNamesByGroup(cpZpravodaj)]) +
+      Row(['Dokument', '148', IntToStr(Channels.GetCountByGroup(cpDokument)), Channels.GetNamesByGroup(cpDokument)]) +
+      Row(['Leo TV', '61', IntToStr(Channels.GetCountByGroup(cpLeoTv)), Channels.GetNamesByGroup(cpLeoTv)]) +
+      '<tr><td>Přeskoč Primu</td><td>73</td><td></td><td></td></tr>' +
+      '<tr><td>+2 streamy</td><td>61</td><td></td><td></td></tr>' +
+      '<tr><td>Licenční poplatek za 2. a další STB/chytrou TV</td><td>25</td><td></td><td></td></tr>' +
       '</table>' +
-      'Celková cena vznikne jako součet zvolených tématických balíčků a základního balíčku Basic + tématika.<br/>' +
+      'Celková cena vznikne jako součet zvolených tématických balíčků a základního balíčku.<br/>' +
 
       //'<h3>Programová nabídka</h3>' +
@@ -288 +291 @@
       '<h3>Zřízení služby</h3>' +
       'Instalace a aktivace: zdarma<br/>' +
-      'Cena set-top boxu: 2000 Kč<br/>' +
+      'Cena 4NET.tv set-top boxu: 2000 Kč. Lze použít i Android TV set-top box.<br/>' +
       'Webové rozhraní pro TV: <a href="https://live.4network.tv/">live.4network.tv</a><br/>' +
       'Návod ke služby 4network.tv: <a href="/docs/navod_4network.tv.pdf">navod_4network.tv.pdf</a><br/>' +
       '<br/>' +
-      'Ceny uvedeny včetně DPH platné od 1.1.2024.';
+      'Ceny uvedeny včetně DPH platné od 1.2.2025.';
       Channels.Free;
     end;

trunk/ReadMe.txt

@@ -18 +18 @@
 Debian/Ubuntu: apt-get install libmysqlclient libmysqlclient-dev
 
-Součástí Lazarusu (2.2.0) je nástroj lazbuild, pomocí kterého je potřeba překompilovat použité komponenty a samotný program.
+Součástí Lazarusu (3.6.0) je nástroj lazbuild, pomocí kterého je potřeba překompilovat použité komponenty a samotný program.
  lazbuild ZdechovNET.lpr
 

trunk/ZdechovNET.lpi

@@ -63 +63 @@
           <Other>
             <Verbosity>
-              <ShoLineNum Value="True"/>
+              <ShowLineNum Value="True"/>
             </Verbosity>
             <WriteFPCLogo Value="False"/>
@@ -389 +389 @@
     <Other>
       <Verbosity>
-        <ShoLineNum Value="True"/>
+        <ShowLineNum Value="True"/>
       </Verbosity>
       <WriteFPCLogo Value="False"/>