<%attr> ajax => 1 <%args> $ip_address => $r->notes('CFG_ip_address') $bouqet => $r->notes('CFG_StartBouqet') $factor => $r->notes('CFG_timeline-factor') $chnum => '1' $size => undef
<& '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 <%perl> my $streamlink = '/vdr/epg/now.html:display_detail&chnum=%chnum'; <& '/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 display_detail> <%attr> ajax => 1 update => 'timeline' throbber => 1 form => 'bouqet_form' <%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 <%init> use Time::Local; $bouqet = uri_unescape($bouqet); my $uesc_bouqet = uri_unescape($bouqet); 2h   4h   8h
<&| '/include/date:get_time', time => $start_time &> @(%week_day) %day.%mon.%year - %hour:%min
@(Was laeuft um)?
% if ( $start_time > timelocal(localtime) ) { % }
<&| '/include/channel:get_chnum_from_bouqet', bouqet => uri_unescape($bouqet), chnum => \$chnum &>
<% $chnum %> <% $m->comp('/include/channel:get_channel_name', cCount => $chnum) %>
<&| '/include/epg:get_epg', chnum => $chnum, timeframe => $timeframe, factor => $nfactor, start_time => $start_time &>
%image_tag

%titel

%subtitel


%start_time - %end_time %length min


%descr


<%filter> s/\|\*\*\*\|/

/g; s/\.\|/\.

/g; s/\|/
/g; <%method app_links> <%attr> ajax => 1 <%args> $chnum $start_time $bouqet <&| '/include/epg:get_epg', chnum => $chnum , timeindex => $start_time &>
<% $chnum %> <% $m->comp('/include/channel:get_channel_name', cCount => $chnum) %>

%titel
%subtitel
%descr
%image_tag
@(Neuer Timer)
@(EPG)
@(In der Internet Film Datenbank IMDB suchen)
@(Suche Wiederholungen)
<%filter> s/\|\*\*\*\|/

/g; s/\.\|/\.

/g; s/\|/
/g;