%attr>
ajax => 1
%attr>
<& /include/recordings:read_recordings &>
<& SELF:display_overview, %ARGS &>
<%method display_overview>
<%attr>
ajax => 1
update => 'list'
throbber => 1
%attr>
<%args>
$deep => 0
$path => undef
$first => undef
$force => undef
%args>
<%perl>
$first = 'true' if !defined $path;
my $c = 0;
my $p;
$path =~ s/___H___/#/g;
$path =~ s/___A___/'/g;
$path =~ s/___U___/&/g;
( my $fpath = $path ) =~ s/#/___H___/g;
$fpath =~ s/'/___A___/g;
$fpath =~ s/&/___U___/g;
$m->comp('/include/recordings:read_recordings', force => $force );
%perl>
>
@(Overview)
% foreach(split(/\//, $path)) {
% $c++; $p.=$_ . "/"; ( my $fp = $p) =~ s/#/___H___/g; $fp =~ s/'/___A___/g; s/&/___U___/g;
>
<% $_ %>
% }
|
|
@(Titel)
|
<&| '/include/recordings:get_dirs', deep => $deep, dir => 'true', path => $path &>
|
%count |
%titel
|
|
|
&>
<&| '/include/recordings:get_recs', deep => $deep, path => $path, first => $first &>
|
|
%titel - %subtitel
%titel
%subtitel
%time %length min
%descr
|
|
|
&>
<%filter>
s/\|\*\*\*\|/
/g;
s/\|/
/;
s/\|/
/g;
%filter>
%method>
<%method delete>
<%attr>
ajax => 1
%attr>
<%args>
$id
$div => 'list'
$recording => 'default'
$deep => '0'
$recdir
%args>
<& '/include/recordings:read_recordings' &>
<&| '/include/recordings:get_single_id', id => $id &>
@(Aufnahme loeschen)?
%time
%titel - %subtitel
&>
<%filter>
s/\|\*\*\*\|/
/g;
s/\|/
/;
s/\|/
/g;
%filter>
%method>
<%method play>
%method>