diff options
Diffstat (limited to 'httemplate/misc/process/cust_main-import.cgi')
| -rw-r--r-- | httemplate/misc/process/cust_main-import.cgi | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/httemplate/misc/process/cust_main-import.cgi b/httemplate/misc/process/cust_main-import.cgi new file mode 100644 index 000000000..aa8cd5298 --- /dev/null +++ b/httemplate/misc/process/cust_main-import.cgi @@ -0,0 +1,28 @@ +% if ( $error ) { +% errorpage($error); +% } else { + <% include('/elements/header.html','Import successful') %> + <% include('/elements/footer.html') %> +% } +<%init> + +die "access denied" + unless $FS::CurrentUser::CurrentUser->access_right('Import'); + +my $fh = $cgi->upload('csvfile'); +#warn $cgi; +#warn $fh; + +my $error = defined($fh) + ? FS::cust_main::batch_import( { + filehandle => $fh, + agentnum => scalar($cgi->param('agentnum')), + refnum => scalar($cgi->param('refnum')), + pkgpart => scalar($cgi->param('pkgpart')), + #'fields' => [qw( cust_pkg.setup dayphone first last address1 address2 + # city state zip comments )], + 'format' => scalar($cgi->param('format')), + } ) + : 'No file'; + +</%init> |