From: ivan <ivan>
Date: Wed, 23 Jun 2010 20:51:34 +0000 (+0000)
Subject: fix cdrbatch problem, RT#8906
X-Git-Tag: root_of_svc_elec_features~130
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=4f97c9b8d145f19da0fe95a7e87ca73212b81302

fix cdrbatch problem, RT#8906
---

diff --git a/httemplate/misc/cdr-post.cgi b/httemplate/misc/cdr-post.cgi
index d9e42fa99..46d9424e7 100644
--- a/httemplate/misc/cdr-post.cgi
+++ b/httemplate/misc/cdr-post.cgi
@@ -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;