import customer from Excel file too

[freeside.git] / httemplate / misc / process / cust_main-import.cgi

diff --git a/httemplate/misc/process/cust_main-import.cgi b/httemplate/misc/process/cust_main-import.cgi
index 2348ef6..2568d1c 100644 (file)
--- a/httemplate/misc/process/cust_main-import.cgi
+++ b/httemplate/misc/process/cust_main-import.cgi
@@ -1,30 +1,42 @@
-<%
+% if ( $error ) {
+%   errorpage($error);
+%  } else {
+    <% include('/elements/header.html','Import successful') %> 
+    <% include('/elements/footer.html') %> 
+%  }
+<%init>
 
-  my $fh = $cgi->upload('csvfile');
-  #warn $cgi;
-  #warn $fh;
+die "access denied"
+  unless $FS::CurrentUser::CurrentUser->access_right('Import');
 
-  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                          )],
-      } )
-    : 'No file';
+my $fh = $cgi->upload('file');
+my $error = '';
+if ( defined($fh) ) {
 
-  if ( $error ) {
-    %>
-    <!-- mason kludge -->
-    <%
-    eidiot($error);
-#    $cgi->param('error', $error);
-#    print $cgi->redirect( "${p}cust_main-import.cgi
+  my $type;
+  if ( $cgi->param('file') =~ /\.(\w+)$/i ) {
+    $type = lc($1);
   } else {
-    %>
-    <!-- mason kludge -->
-    <%= include("/elements/header.html",'Import sucessful') %> <%
+    #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                          )],
+      'format'   => scalar($cgi->param('format')),
+    } );
+
+} else {
+  $error = 'No file';
+}
+
+</%init>