Changeset 145 for trunk/Modules/ZdechovNET

Timestamp:

Dec 29, 2023, 7:27:47 PM (12 months ago)

Author:

chronos

Message:

• Modified: Updated IPTV prices.

File:

• trunk/Modules/ZdechovNET/UIPTVPage.pas (modified) (10 diffs)

trunk/Modules/ZdechovNET/UIPTVPage.pas

@@ -98 +98 @@
       with Channels do begin
         AddNew('360TuneBox', [cpMax]);
-        AddNew('AMC (American Movie Classics)(HD)', [cpStandard, cpMax]);
+        AddNew('A11', [cpStandard, cpMax]);
+        AddNew('AMC HD', [cpStandard, cpMax]);
         AddNew('Animal Planet HD', [cpStandard, cpMax, cpDokument]);
-        AddNew('Arena SPORT 1 HD', [cpStandard, cpMax, cpSport]);
-        AddNew('Arena SPORT 2', [cpStandard, cpMax, cpSport]);
+        AddNew('Arena Sport 1 HD', [cpStandard, cpMax, cpSport]);
+        AddNew('Arena Sport 2 HD', [cpStandard, cpMax, cpSport]);
         AddNew('ATV', [cpBasic, cpStandard, cpMax]);
         AddNew('AXN', [cpStandard, cpMax, cpFilm]);
@@ -107 +108 @@
         AddNew('AXN White', [cpStandard, cpMax, cpFilm]);
         AddNew('Baby TV', [cpStandard, cpMax, cpDetske]);
-        AddNew('BBC World News', [cpMax, cpZpravodaj]);
+        AddNew('BBC News', [cpMax, cpZpravodaj]);
         AddNew('Brazzers TV Europe', [cpStandard, cpMax, cpLaska]);
         AddNew('CNN', [cpStandard, cpMax]);
         AddNew('CNN Prima News HD', [cpBasic, cpStandard, cpMax]);
-        AddNew('CS film/ CS Horor', [cpStandard, cpMax, cpCesky]);
+        AddNew('CS film/CS Horor', [cpStandard, cpMax, cpCesky]);
         AddNew('CS History', [cpBasic, cpStandard, cpMax, cpCesky]);
         AddNew('CS Mystery', [cpStandard, cpMax, cpCesky]);
@@ -117 +118 @@
         AddNew('ČT 1 HD', [cpBasic, cpStandard, cpMax]);
         AddNew('ČT 1 JM HD', [cpBasic, cpStandard, cpMax]);
+        AddNew('ČT 1 JMC HD', [cpBasic, cpStandard, cpMax]);
         AddNew('ČT 1 SM HD', [cpBasic, cpStandard, cpMax]);
+        AddNew('ČT 1 SMX HD', [cpBasic, cpStandard, cpMax]);
         AddNew('ČT 2 HD', [cpBasic, cpStandard, cpMax]);
         AddNew('ČT 3 HD', [cpBasic, cpStandard, cpMax]);
         AddNew('ČT 24 HD', [cpBasic, cpStandard, cpMax]);
-        AddNew('ČT sport HD', [cpBasic, cpStandard, cpMax]);
+        AddNew('ČT Sport HD', [cpBasic, cpStandard, cpMax]);
         AddNew('Desire TV HD', [cpStandard, cpMax]);
         AddNew('Discovery Channel HD', [cpStandard, cpMax, cpDokument]);
@@ -165 +168 @@
         AddNew('Mňam TV', [cpBasic, cpStandard, cpMax]);
         AddNew('Mňau TV HD', [cpBasic, cpStandard, cpMax]);
-        AddNew('Náš Region TV', [cpBasic, cpStandard, cpMax, cpZpravodaj]);
         AddNew('NASA TV HD', [cpBasic, cpStandard, cpMax]);
         AddNew('National Geographic HD', [cpMax, cpDokument]);
@@ -194 +196 @@
         AddNew('Prima LOVE HD', [cpBasic, cpStandard, cpMax]);
         AddNew('Prima MAX HD', [cpBasic, cpStandard, cpMax]);
+        AddNew('Prima Plus HD', [cpMax]);
         AddNew('Prima Show HD', [cpBasic, cpStandard, cpMax]);
         AddNew('Prima Star HD', [cpBasic, cpStandard, cpMax]);
@@ -201 +204 @@
         AddNew('Relax', [cpBasic, cpStandard, cpMax]);
         AddNew('Retro Music Television', [cpBasic, cpStandard, cpMax]);
+        AddNew('RTVS 24 HD', [cpBasic, cpStandard, cpMax]);
         AddNew('RTVS Šport HD', [cpBasic, cpStandard, cpMax]);
         AddNew('Seznam.cz TV HD', [cpBasic, cpStandard, cpMax]);
+        AddNew('Šlágr Muzika TV', [cpMax]);
+        AddNew('Šlágr Originál TV', [cpBasic, cpStandard, cpMax]);
+        AddNew('Spark TV HD', [cpStandard, cpMax]);
         AddNew('Spektrum HD', [cpStandard, cpMax]);
+        AddNew('Spektrum Home HD', [cpBasic, cpStandard, cpMax]);
         AddNew('Sport 1 HD', [cpStandard, cpMax]);
         AddNew('Sport 5 HD', [cpMax, cpSport]);
         AddNew('Sport 2 HD', [cpStandard, cpMax]);
         AddNew('Super Polsat', [cpBasic, cpStandard, cpMax]);
-        AddNew('Šlágr Originál TV', [cpBasic, cpStandard, cpMax]);
         AddNew('TA 3 HD', [cpBasic, cpStandard, cpMax]);
         AddNew('TLC HD', [cpStandard, cpMax, cpDokument]);
@@ -238 +245 @@
 
       Text := Text + '<h3>Výhody</h3>' +
-      '<ul><li>velké množství televizních kanálů za nízkou cenu</li>' +
+      '<ul>' +
+      '<li>velké množství televizních kanálů za nízkou cenu</li>' +
       '<li>možnost si aktivovat službu a měnit balíčky po měsících bez několikaleté výpovědní lhůty</li>' +
       '<li>zpětné přehrávání 7 dní nazpět (timeshift)</li>' +
@@ -252 +260 @@
       '<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', '122', IntToStr(Channels.GetCountByGroup(cpBasic)), Channels.GetNamesByGroup(cpBasic)]) +
-      Row(['Basic + tématika', '131', IntToStr(Channels.GetCountByGroup(cpBasic)), Channels.GetNamesByGroup(cpBasic)]) +
-      Row(['Standard', '425', IntToStr(Channels.GetCountByGroup(cpStandard)), Channels.GetNamesByGroup(cpStandard)]) +
-      Row(['Max', '587', IntToStr(Channels.GetCountByGroup(cpMax)), Channels.GetNamesByGroup(cpMax)]) +
+      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)]) +
       '</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/>' +
@@ -261 +269 @@
       '<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', '49', IntToStr(Channels.GetCountByGroup(cpFilm)), Channels.GetNamesByGroup(cpFilm)]) +
-      Row(['Superbox', '146', IntToStr(Channels.GetCountByGroup(cpSuperBox)), Channels.GetNamesByGroup(cpSuperBox)]) +
-      Row(['Sport', '91', IntToStr(Channels.GetCountByGroup(cpSport)), Channels.GetNamesByGroup(cpSport)]) +
-      Row(['Dětské', '37', IntToStr(Channels.GetCountByGroup(cpDetske)), Channels.GetNamesByGroup(cpDetske)]) +
-      Row(['Česky', '43', IntToStr(Channels.GetCountByGroup(cpCesky)), Channels.GetNamesByGroup(cpCesky)]) +
-      Row(['Láska', '48', IntToStr(Channels.GetCountByGroup(cpLaska)), Channels.GetNamesByGroup(cpLaska)]) +
-      Row(['Zpravodaj', '15', IntToStr(Channels.GetCountByGroup(cpZpravodaj)), Channels.GetNamesByGroup(cpZpravodaj)]) +
-      Row(['Dokument', '125', IntToStr(Channels.GetCountByGroup(cpDokument)), Channels.GetNamesByGroup(cpDokument)]) +
+      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)]) +
       '</table>' +
@@ -284 +292 @@
       '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.2023.';
+      'Ceny uvedeny včetně DPH platné od 1.1.2024.';
       Channels.Free;
     end;