3 my $fh = $cgi->upload('csvfile');
7 my $error = defined($fh)
8 ? FS::cust_main::batch_import( {
10 agentnum => scalar($cgi->param('agentnum')),
11 refnum => scalar($cgi->param('refnum')),
12 pkgpart => scalar($cgi->param('pkgpart')),
13 'fields' => [qw( cust_pkg.setup dayphone first last address1 address2
14 city state zip comments )],
23 # $cgi->param('error', $error);
24 # print $cgi->redirect( "${p}cust_main-import.cgi
28 <%= header('Import sucessful') %> <%