quiet warnings about CGI::param in list context

[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 {
-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>