<& 'SELF:display_form', %ARGS &>

<& 'SELF:display_overview', %ARGS &>
<%method display_overview> <%args> $recording => 'default' $recid => undef <%attr> ajax => 1 update => 'recordings' throbber => 1 form => 'recordingsform' <%perl> use URI::Escape; $m->comp('/include/recordings:read_recordings'); $recording = uri_unescape($recording); my $orig_recording=$recording; $recording =~ s/\r//g; my %TopIndex = %{$m->comp('/include/recordings:get_top_index')}; my %IDIndex = %{$m->comp('/include/recordings:get_id_index')}; my %TimeIndex = %{$m->comp('/include/recordings:get_time_index')}; my %RecList=%TopIndex; my $count=0; if(defined $recid) { if(defined $IDIndex{$recid}) { $recording=$IDIndex{$recid}{'detail'}{'titel'}; } } if($recording ne 'default' && $recording ne 'all') { %RecList=(); my %TitelIndex=%{$m->comp('/include/recordings:get_titel_index')}; foreach(@{$TitelIndex{$recording}}) { $RecList{$_->{detail}->{id}} = \%{$_}; } } else { $recording='@(Einzelne Aufnahmen)'; }

<% $recording %>

<%perl> my @TimeSort; foreach my $id (sort keys %RecList) { push(@TimeSort, $RecList{$id}{'detail'}{'timeindex'}) if $RecList{$id}{'detail'}{'timeindex'}; } foreach my $timeIdx (reverse sort {$a <=> $b} @TimeSort) { my $id=undef; if($orig_recording eq 'default') { $id = $TimeIndex{$timeIdx}{'detail'}{'titel'}; } else { $id = $TimeIndex{$timeIdx}{'detail'}{'id'}; } if(defined $RecList{$id}{'detail'}{'id'}) { $count++; if($count ==1) { $m->print(''); } <%perl> if($count ==3) { $m->print(''); $count=0;} } } if($count != 0) { $m->print('');}
<& 'SELF:display_detail', id => $RecList{$id}{'detail'}{'RecID'} , resume => $RecList{$id}{'detail'}{'resume'} , recording => $orig_recording &>

<%method display_form> % $m->comp('/include/recordings:read_recordings');
<%method display_detail> <%args> $id $resume => undef $recording => 'default' <%perl> use URI::Escape; ## $recording=uri_escape($recording); <&| '/include/recordings:get_single_id', id => $id &>
%titel

%channel_name
%subtitel % if(!defined $resume) {print " ";}
%time   %length min
%descr

@(Play) @(WantDelete)
<%filter> s/\|\*\*\*\|/

/g; s/\|/

/; s/\|/

/g;