diff options
Diffstat (limited to 'httemplate/misc/process/cust_main-import.cgi')
| -rw-r--r-- | httemplate/misc/process/cust_main-import.cgi | 30 |
1 files changed, 22 insertions, 8 deletions
diff --git a/httemplate/misc/process/cust_main-import.cgi b/httemplate/misc/process/cust_main-import.cgi index aa8cd5298..2568d1c7b 100644 --- a/httemplate/misc/process/cust_main-import.cgi +++ b/httemplate/misc/process/cust_main-import.cgi @@ -9,20 +9,34 @@ die "access denied" unless $FS::CurrentUser::CurrentUser->access_right('Import'); -my $fh = $cgi->upload('csvfile'); -#warn $cgi; -#warn $fh; +my $fh = $cgi->upload('file'); +my $error = ''; +if ( defined($fh) ) { -my $error = defined($fh) - ? FS::cust_main::batch_import( { + my $type; + if ( $cgi->param('file') =~ /\.(\w+)$/i ) { + $type = lc($1); + } else { + #or error out??? + warn "can't parse file type from filename ". $cgi->param('file'). + '; defaulting to CSV'; + $type = 'csv'; + } + + $error = + FS::cust_main::batch_import( { filehandle => $fh, + type => $type, 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 )], + # city state zip comments )], 'format' => scalar($cgi->param('format')), - } ) - : 'No file'; + } ); + +} else { + $error = 'No file'; +} </%init> |