Changeset 145


Ignore:
Timestamp:
Dec 29, 2023, 7:27:47 PM (11 months ago)
Author:
chronos
Message:
  • Modified: Updated IPTV prices.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/Modules/ZdechovNET/UIPTVPage.pas

    r143 r145  
    9898      with Channels do begin
    9999        AddNew('360TuneBox', [cpMax]);
    100         AddNew('AMC (American Movie Classics)(HD)', [cpStandard, cpMax]);
     100        AddNew('A11', [cpStandard, cpMax]);
     101        AddNew('AMC HD', [cpStandard, cpMax]);
    101102        AddNew('Animal Planet HD', [cpStandard, cpMax, cpDokument]);
    102         AddNew('Arena SPORT 1 HD', [cpStandard, cpMax, cpSport]);
    103         AddNew('Arena SPORT 2', [cpStandard, cpMax, cpSport]);
     103        AddNew('Arena Sport 1 HD', [cpStandard, cpMax, cpSport]);
     104        AddNew('Arena Sport 2 HD', [cpStandard, cpMax, cpSport]);
    104105        AddNew('ATV', [cpBasic, cpStandard, cpMax]);
    105106        AddNew('AXN', [cpStandard, cpMax, cpFilm]);
     
    107108        AddNew('AXN White', [cpStandard, cpMax, cpFilm]);
    108109        AddNew('Baby TV', [cpStandard, cpMax, cpDetske]);
    109         AddNew('BBC World News', [cpMax, cpZpravodaj]);
     110        AddNew('BBC News', [cpMax, cpZpravodaj]);
    110111        AddNew('Brazzers TV Europe', [cpStandard, cpMax, cpLaska]);
    111112        AddNew('CNN', [cpStandard, cpMax]);
    112113        AddNew('CNN Prima News HD', [cpBasic, cpStandard, cpMax]);
    113         AddNew('CS film/ CS Horor', [cpStandard, cpMax, cpCesky]);
     114        AddNew('CS film/CS Horor', [cpStandard, cpMax, cpCesky]);
    114115        AddNew('CS History', [cpBasic, cpStandard, cpMax, cpCesky]);
    115116        AddNew('CS Mystery', [cpStandard, cpMax, cpCesky]);
     
    117118        AddNew('ČT 1 HD', [cpBasic, cpStandard, cpMax]);
    118119        AddNew('ČT 1 JM HD', [cpBasic, cpStandard, cpMax]);
     120        AddNew('ČT 1 JMC HD', [cpBasic, cpStandard, cpMax]);
    119121        AddNew('ČT 1 SM HD', [cpBasic, cpStandard, cpMax]);
     122        AddNew('ČT 1 SMX HD', [cpBasic, cpStandard, cpMax]);
    120123        AddNew('ČT 2 HD', [cpBasic, cpStandard, cpMax]);
    121124        AddNew('ČT 3 HD', [cpBasic, cpStandard, cpMax]);
    122125        AddNew('ČT 24 HD', [cpBasic, cpStandard, cpMax]);
    123         AddNew('ČT sport HD', [cpBasic, cpStandard, cpMax]);
     126        AddNew('ČT Sport HD', [cpBasic, cpStandard, cpMax]);
    124127        AddNew('Desire TV HD', [cpStandard, cpMax]);
    125128        AddNew('Discovery Channel HD', [cpStandard, cpMax, cpDokument]);
     
    165168        AddNew('Mňam TV', [cpBasic, cpStandard, cpMax]);
    166169        AddNew('Mňau TV HD', [cpBasic, cpStandard, cpMax]);
    167         AddNew('Náš Region TV', [cpBasic, cpStandard, cpMax, cpZpravodaj]);
    168170        AddNew('NASA TV HD', [cpBasic, cpStandard, cpMax]);
    169171        AddNew('National Geographic HD', [cpMax, cpDokument]);
     
    194196        AddNew('Prima LOVE HD', [cpBasic, cpStandard, cpMax]);
    195197        AddNew('Prima MAX HD', [cpBasic, cpStandard, cpMax]);
     198        AddNew('Prima Plus HD', [cpMax]);
    196199        AddNew('Prima Show HD', [cpBasic, cpStandard, cpMax]);
    197200        AddNew('Prima Star HD', [cpBasic, cpStandard, cpMax]);
     
    201204        AddNew('Relax', [cpBasic, cpStandard, cpMax]);
    202205        AddNew('Retro Music Television', [cpBasic, cpStandard, cpMax]);
     206        AddNew('RTVS 24 HD', [cpBasic, cpStandard, cpMax]);
    203207        AddNew('RTVS Šport HD', [cpBasic, cpStandard, cpMax]);
    204208        AddNew('Seznam.cz TV HD', [cpBasic, cpStandard, cpMax]);
     209        AddNew('Šlágr Muzika TV', [cpMax]);
     210        AddNew('Šlágr Originál TV', [cpBasic, cpStandard, cpMax]);
     211        AddNew('Spark TV HD', [cpStandard, cpMax]);
    205212        AddNew('Spektrum HD', [cpStandard, cpMax]);
     213        AddNew('Spektrum Home HD', [cpBasic, cpStandard, cpMax]);
    206214        AddNew('Sport 1 HD', [cpStandard, cpMax]);
    207215        AddNew('Sport 5 HD', [cpMax, cpSport]);
    208216        AddNew('Sport 2 HD', [cpStandard, cpMax]);
    209217        AddNew('Super Polsat', [cpBasic, cpStandard, cpMax]);
    210         AddNew('Šlágr Originál TV', [cpBasic, cpStandard, cpMax]);
    211218        AddNew('TA 3 HD', [cpBasic, cpStandard, cpMax]);
    212219        AddNew('TLC HD', [cpStandard, cpMax, cpDokument]);
     
    238245
    239246      Text := Text + '<h3>Výhody</h3>' +
    240       '<ul><li>velké množství televizních kanálů za nízkou cenu</li>' +
     247      '<ul>' +
     248      '<li>velké množství televizních kanálů za nízkou cenu</li>' +
    241249      '<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>' +
    242250      '<li>zpětné přehrávání 7 dní nazpět (timeshift)</li>' +
     
    252260      '<h3>Základní balíčky</h3>' +
    253261      '<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>' +
    254       Row(['Basic', '122', IntToStr(Channels.GetCountByGroup(cpBasic)), Channels.GetNamesByGroup(cpBasic)]) +
    255       Row(['Basic + tématika', '131', IntToStr(Channels.GetCountByGroup(cpBasic)), Channels.GetNamesByGroup(cpBasic)]) +
    256       Row(['Standard', '425', IntToStr(Channels.GetCountByGroup(cpStandard)), Channels.GetNamesByGroup(cpStandard)]) +
    257       Row(['Max', '587', IntToStr(Channels.GetCountByGroup(cpMax)), Channels.GetNamesByGroup(cpMax)]) +
     262      Row(['Basic', '144', IntToStr(Channels.GetCountByGroup(cpBasic)), Channels.GetNamesByGroup(cpBasic)]) +
     263      Row(['Basic + tématika', '157', IntToStr(Channels.GetCountByGroup(cpBasic)), Channels.GetNamesByGroup(cpBasic)]) +
     264      Row(['Standard', '460', IntToStr(Channels.GetCountByGroup(cpStandard)), Channels.GetNamesByGroup(cpStandard)]) +
     265      Row(['Max', '624', IntToStr(Channels.GetCountByGroup(cpMax)), Channels.GetNamesByGroup(cpMax)]) +
    258266      '</table>' +
    259267      '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/>' +
     
    261269      '<h3>Tématické balíčky</h3>' +
    262270      '<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>' +
    263       Row(['Film', '49', IntToStr(Channels.GetCountByGroup(cpFilm)), Channels.GetNamesByGroup(cpFilm)]) +
    264       Row(['Superbox', '146', IntToStr(Channels.GetCountByGroup(cpSuperBox)), Channels.GetNamesByGroup(cpSuperBox)]) +
    265       Row(['Sport', '91', IntToStr(Channels.GetCountByGroup(cpSport)), Channels.GetNamesByGroup(cpSport)]) +
    266       Row(['Dětské', '37', IntToStr(Channels.GetCountByGroup(cpDetske)), Channels.GetNamesByGroup(cpDetske)]) +
    267       Row(['Česky', '43', IntToStr(Channels.GetCountByGroup(cpCesky)), Channels.GetNamesByGroup(cpCesky)]) +
    268       Row(['Láska', '48', IntToStr(Channels.GetCountByGroup(cpLaska)), Channels.GetNamesByGroup(cpLaska)]) +
    269       Row(['Zpravodaj', '15', IntToStr(Channels.GetCountByGroup(cpZpravodaj)), Channels.GetNamesByGroup(cpZpravodaj)]) +
    270       Row(['Dokument', '125', IntToStr(Channels.GetCountByGroup(cpDokument)), Channels.GetNamesByGroup(cpDokument)]) +
     271      Row(['Film', '53', IntToStr(Channels.GetCountByGroup(cpFilm)), Channels.GetNamesByGroup(cpFilm)]) +
     272      Row(['Superbox', '158', IntToStr(Channels.GetCountByGroup(cpSuperBox)), Channels.GetNamesByGroup(cpSuperBox)]) +
     273      Row(['Sport', '146', IntToStr(Channels.GetCountByGroup(cpSport)), Channels.GetNamesByGroup(cpSport)]) +
     274      Row(['Dětské', '40', IntToStr(Channels.GetCountByGroup(cpDetske)), Channels.GetNamesByGroup(cpDetske)]) +
     275      Row(['Česky', '45', IntToStr(Channels.GetCountByGroup(cpCesky)), Channels.GetNamesByGroup(cpCesky)]) +
     276      Row(['Láska', '60', IntToStr(Channels.GetCountByGroup(cpLaska)), Channels.GetNamesByGroup(cpLaska)]) +
     277      Row(['Zpravodaj', '19', IntToStr(Channels.GetCountByGroup(cpZpravodaj)), Channels.GetNamesByGroup(cpZpravodaj)]) +
     278      Row(['Dokument', '136', IntToStr(Channels.GetCountByGroup(cpDokument)), Channels.GetNamesByGroup(cpDokument)]) +
    271279      Row(['Leo TV', '49', IntToStr(Channels.GetCountByGroup(cpLeoTv)), Channels.GetNamesByGroup(cpLeoTv)]) +
    272280      '</table>' +
     
    284292      'Návod ke služby 4network.tv: <a href="/docs/navod_4network.tv.pdf">navod_4network.tv.pdf</a><br/>' +
    285293      '<br/>' +
    286       'Ceny uvedeny včetně DPH platné od 1.1.2023.';
     294      'Ceny uvedeny včetně DPH platné od 1.1.2024.';
    287295      Channels.Free;
    288296    end;
Note: See TracChangeset for help on using the changeset viewer.