diff options
author | ivan <ivan> | 2011-05-09 23:16:08 +0000 |
---|---|---|
committer | ivan <ivan> | 2011-05-09 23:16:08 +0000 |
commit | f7baea86e2cbb33697aed8287bc32d744accf662 (patch) | |
tree | 1986c3477cefdc32dcdf7657248268f0924cc588 | |
parent | 068d47b904109160356cc3307a8f469a5eb77116 (diff) |
fix inadvertant un-rewriting of taqua accountcode CDRs, RT#12181
-rw-r--r-- | FS/bin/freeside-cdrrewrited | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/FS/bin/freeside-cdrrewrited b/FS/bin/freeside-cdrrewrited index bcbde1a39..846b0b976 100644 --- a/FS/bin/freeside-cdrrewrited +++ b/FS/bin/freeside-cdrrewrited @@ -49,6 +49,7 @@ while (1) { : ''; my $found = 0; + my %skip = (); foreach my $cdr ( qsearch( { 'table' => 'cdr', @@ -61,6 +62,8 @@ while (1) { } ) ) { + next if $skip{$cdr->acctid}; + $found = 1; my @status = (); @@ -125,6 +128,7 @@ while (1) { warn "WARNING: error rewriting primary CDR (will retry): $error\n"; next; } + $skip{$primary->acctid} = 1; push @status, 'taqua-accountcode'; $cdr->status('done'); #so it doesn't try to rate |