blob: 9e1adce54b9e548cb6c501037760b205131ea1db (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
<%
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 )],
} )
: 'No file';
if ( $error ) {
%>
<!-- mason kludge -->
<%
eidiot($error);
# $cgi->param('error', $error);
# print $cgi->redirect( "${p}cust_main-import.cgi
} else {
%>
<!-- mason kludge -->
<%= header('Import sucessful') %> <%
}
%>
|
