%# It is easier to write an incorrect program than understand a correct one. <& /Edit/Elements/PopHeader, Action => "Import.html", Title => loc('Import'), NoStyle => 1, Margin => 0 &> <& /Edit/Elements/PopFooter &> <%INIT> if ($ARGS{'Action-Commit'}) { my $Obj = $m->comp('Export.html', %ARGS, LoadOnly => 1)->TemplateObj; $Content =~ s/\015\012/\n/g; $Content =~ s/\015/\n/g; $Obj->SetContent($Content); $m->print("
"); $m->abort; } %INIT> <%ARGS> $Content => undef $Queue => 0 %ARGS>