%# 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 (defined $Content) { my $Obj = $m->comp('Export.html', %ARGS, LoadOnly => 1)->TemplateObj; $Content =~ s/\015\012/\n/g; $Content =~ s/\015/\n/g; $Obj->SetContent($Content); my $uri = $r->uri; $uri =~ s/Import\.html$//; $uri .= "?Queue=$Queue" if $Queue; sleep 2; $m->print(""); $m->abort; } <%ARGS> $Content => undef $Queue => 0