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 )],
15 % 'format' => scalar($cgi->param('format')),
25 %# $cgi->param('error', $error);
26 %# print $cgi->redirect( "${p}cust_main-import.cgi
31 <% include("/elements/header.html",'Import successful') %>