% % % my $fh = $cgi->upload('filename'); % % my $error = defined($fh) % ? FS::inventory_item::batch_import( { % 'filehandle' => $fh, % 'classnum' => $cgi->param('classnum'), % } ) % : 'No file'; % % if ( $error ) { % % % eidiot($error); %# $cgi->param('error', $error); %# print $cgi->redirect( "${p}cust_main-import.cgi % } else { % <% include("/elements/header.html",'Import successful') %> <% include("/elements/footer.html",'Import successful') %> % % } %