projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
manual batch approval and TD EFT fixes, RT#10545
[freeside.git]
/
httemplate
/
misc
/
cdr-post.cgi
diff --git
a/httemplate/misc/cdr-post.cgi
b/httemplate/misc/cdr-post.cgi
index
d9e42fa
..
541dac3
100644
(file)
--- a/
httemplate/misc/cdr-post.cgi
+++ b/
httemplate/misc/cdr-post.cgi
@@
-1,7
+1,7
@@
% if ( $error ) {
0,"<% $error %>",,
% } else {
% if ( $error ) {
0,"<% $error %>",,
% } else {
-1,"CDR import successful
'
,<% $cdr_batch->cdrbatchnum %>,"<% $cdrbatch %>"
+1,"CDR import successful
"
,<% $cdr_batch->cdrbatchnum %>,"<% $cdrbatch %>"
% }
<%init>
% }
<%init>
@@
-10,6
+10,7
@@
die "access denied"
my $error = '';
my $cdr_batch;
my $error = '';
my $cdr_batch;
+my $cdrbatch = '';
{
{
@@
-29,7
+30,7
@@
my $cdr_batch;
my $csv = new Text::CSV_XS or die Text::CSV->error_diag;
my $csv = new Text::CSV_XS or die Text::CSV->error_diag;
-
my
$cdrbatch = time2str('post-%Y/%m/%d-%T'. "-$$-". rand() * 2**32, time);
+ $cdrbatch = time2str('post-%Y/%m/%d-%T'. "-$$-". rand() * 2**32, time);
$cdr_batch = new FS::cdr_batch { 'cdrbatch' => $cdrbatch };
$error = $cdr_batch->insert and last;
$cdr_batch = new FS::cdr_batch { 'cdrbatch' => $cdrbatch };
$error = $cdr_batch->insert and last;
@@
-52,4
+53,6
@@
my $cdr_batch;
}
}
+$error =~ s/"/""/g; #CSV
+
</%init>
</%init>