X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=httemplate%2Fmisc%2Fprocess%2Fcust_main-import.cgi;h=2568d1c7bf7ab2fcc21c0b13ce456e69fc354deb;hp=aa8cd5298d3cc59249ac18dd35c1dd7b289a102b;hb=ec5603ae351d4ed8e4873dcd20bf71f8a4d549bb;hpb=71c1e7b1305b8bf7f2128d92d6547f5708ab4121 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'; +}