%# "When in doubt, tell the truth." %# -- Mark Twain <& /Edit/Elements/PopHeader, Action => "Import.html", Title => loc('Import'), NoStyle => 1, Margin => 0, EncType => "multipart/form-data" &>
<&|/l&>Please specify the file to import

<&|/l&>File to Import

<& /Edit/Elements/PopFooter &> <%INIT> if ($Op eq 'Import' and $upload) { our $DB; my $Handle = $DB->ReportObj($session{reportId})->HandleObj; if ($upload) { my ($buf, $stream) = ('', ''); binmode($upload); while (read($upload, $buf, 8192)) { $stream .= $buf; } $session{reportContent} = $stream; } $m->print(""); $m->abort; } <%ARGS> $Op => undef $upload => undef