X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fmisc%2Fcdr-post.cgi;h=541dac3e32dc203510203daf7b91ca41eb32efea;hb=2a56c671635687bf2648eb3a7cf4bce228101af3;hp=d9e42fa99aba0fa16532c41bd28005516b67ffa6;hpb=3d0320979331ac4b68fc07fd4203d74c1b05aff4;p=freeside.git

diff --git a/httemplate/misc/cdr-post.cgi b/httemplate/misc/cdr-post.cgi
index d9e42fa99..541dac3e3 100644
--- a/httemplate/misc/cdr-post.cgi
+++ b/httemplate/misc/cdr-post.cgi
@@ -1,7 +1,7 @@
 % if ( $error ) {
 0,"<% $error %>",,
 % } else {
-1,"CDR import successful',<% $cdr_batch->cdrbatchnum %>,"<% $cdrbatch %>"
+1,"CDR import successful",<% $cdr_batch->cdrbatchnum %>,"<% $cdrbatch %>"
 % }
 <%init>
 
@@ -10,6 +10,7 @@ die "access denied"
 
 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 $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;
 
@@ -52,4 +53,6 @@ my $cdr_batch;
 
 }
 
+$error =~ s/"/""/g; #CSV
+
 </%init>