%attr>
ajax => 1
%attr>
<%args>
$ip_address => $r->notes('CFG_ip_address')
$bouqet => $r->notes('CFG_StartBouqet')
$factor => $r->notes('CFG_timeline-factor')
$chnum => '1'
$size => undef
%args>
<& 'SELF:display_form', %ARGS &>
<& 'SELF:display_detail', EpgStatus => '1', ip_address => $ip_address, %ARGS &>
<%method display_form>
<%args>
$ip_address => $r->notes('CFG_ip_address')
$bouqet => $r->notes('CFG_StartBouqet')
$factor => $r->notes('CFG_timeline-factor')
$chnum => '1'
$size => undef
%args>
<%perl>
my $streamlink = '/vdr/epg/now.html:display_detail&chnum=%chnum';
%perl>
<& '/include/epg:read_epg' &>
<& '/vdr/channel.html:display_form' , target => '_self'
, div => 'timeline'
, nosearch => 'true'
, bouqet => $bouqet
, update => 'timeline'
, ip_address => $ip_address
, comp => '/vdr/epg/timeline.html:display_detail'
, link => $streamlink
, %ARGS
&>
%method>
<%method display_detail>
<%attr>
ajax => 1
update => 'timeline'
throbber => 1
form => 'bouqet_form'
%attr>
<%args>
$ip_address => $r->notes('CFG_ip_address')
$bouqet => $r->notes('CFG_StartBouqet')
$factor => $r->notes('CFG_timeline-factor')
$EpgStatus => undef
$timeframe => '120'
$start_time => timelocal(localtime())
$nfactor => $factor*2
$chnum => undef
%args>
<%init>
use Time::Local;
$bouqet = uri_unescape($bouqet);
my $uesc_bouqet = uri_unescape($bouqet);
%init>
2h
4h
8h
<%filter>
s/\|\*\*\*\|/
/g;
s/\.\|/\.
/g;
s/\|/
/g;
%filter>
%method>
<%method app_links>
<%attr>
ajax => 1
%attr>
<%args>
$chnum
$start_time
$bouqet
%args>
<&| '/include/epg:get_epg', chnum => $chnum , timeindex => $start_time &>
<% $chnum %> <% $m->comp('/include/channel:get_channel_name', cCount => $chnum) %>
%titel
%subtitel
%descr
|
|
&>
<%filter>
s/\|\*\*\*\|/
/g;
s/\.\|/\.
/g;
s/\|/
/g;
%filter>
%method>