<%attr> ajax => 1 <%args> $noback => undef $histdir => undef $base => undef <%perl> my $backurl = "javascript: nav_navigate('/tools/filebrowser.html:sub_navigation','/tools/filebrowser.html&basedir=$histdir')" if $histdir; $backurl = "javascript: navigate('$base')" if $base;
% if ( !defined $noback ) { << @(Zurueck) % }

<& SELF:e_nav_bar, %ARGS &>
<& SELF:e_content, %ARGS &>
<%method e_nav_bar> <%attr> ajax => 1 <%args> $file => undef
@(save) @(reset) @(Download)
<%method e_content> <%attr> ajax => 1 <%args> $file $text => undef $basedir => undef <%perl> $basedir = uri_unescape( $basedir ); $basedir =~ s/___H___/#/g; $basedir =~ s/___A___/'/g; $basedir =~ s/___U___/&/g; $file = uri_unescape( $file ); $file =~ s/___H___/#/g; $file =~ s/___A___/'/g; $file =~ s/___U___/&/g; if ( defined $basedir) { $file = $basedir . '/' . $file; } ( my $ffile = $file ) =~ s/#/___H___/g; $file =~ s/'/___A___/g; $file =~ s/&/___U___/g; my $line = ReelBox::Base::read_file($file); % ## check text and save to file % if ( defined $text ) { <& '/include/system:save_file', file => $file, text => $text &> % }