blob: 7c4bf2b59d5f3eb42adfe402e373aaf109bbb1c8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
% if ( $error ) {
% errorpage($error);
% } else {
<% include("/elements/header.html",'Import successful') %>
<!-- XXX redirect to batch search like the payment entry... -->
<% include("/elements/footer.html",'Import successful') %>
% }
<%init>
die "access denied"
unless $FS::CurrentUser::CurrentUser->access_right('Import');
my $fh = $cgi->upload('csvfile');
my $error = defined($fh)
? FS::cdr::batch_import( {
'filehandle' => $fh,
'format' => scalar($cgi->param('format')),
'cdrbatch' => scalar($cgi->param('cdrbatch')),
} )
: 'No file';
</%init>
|
