<%attr> ajax => 1 <%args> $noback => undef
% if ( !defined $noback ) { << @(Zurueck) % }

<& SELF:e_nav_bar, %ARGS &>
<& SELF:e_content, %ARGS &>
<%method e_nav_bar> <%attr> ajax => 1 <%args> $file => undef
@(save) @(New Folder) @(Download)
<%method e_content> <%attr> ajax => 1 <%args> $file $text => undef $basedir => undef <%init> use URI::Escape; <%perl> $basedir = uri_unescape( $basedir ); $basedir =~ s/___H___/#/g; $file = uri_unescape( $file ); $file =~ s/___H___/#/g; if ( defined $basedir) { $file = $basedir . '/' . $file; } ( my $ffile = $file ) =~ s/#/___H___/g; % ## check text and save to file % if ( defined $text ) { <& '/include/system:save_file', file => $file, text => $text &> % } <%perl> my $line = $m->comp('/include/system:read_file', file => $file);