4 <% include('/elements/header.html','Import successful') %>
5 <% include('/elements/footer.html') %>
10 unless $FS::CurrentUser::CurrentUser->access_right('Import');
12 my $fh = $cgi->upload('file');
17 if ( $cgi->param('file') =~ /\.(\w+)$/i ) {
21 warn "can't parse file type from filename ". $cgi->param('file').
22 '; defaulting to CSV';
27 FS::cust_main::batch_import( {
30 agentnum => scalar($cgi->param('agentnum')),
31 refnum => scalar($cgi->param('refnum')),
32 pkgpart => scalar($cgi->param('pkgpart')),
33 #'fields' => [qw( cust_pkg.setup dayphone first last address1 address2
34 # city state zip comments )],
35 'format' => scalar($cgi->param('format')),