projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix inadvertant un-rewriting of taqua accountcode CDRs, RT#12181
[freeside.git]
/
FS
/
bin
/
freeside-cdrrewrited
diff --git
a/FS/bin/freeside-cdrrewrited
b/FS/bin/freeside-cdrrewrited
index
bcbde1a
..
846b0b9
100644
(file)
--- a/
FS/bin/freeside-cdrrewrited
+++ b/
FS/bin/freeside-cdrrewrited
@@
-49,6
+49,7
@@
while (1) {
: '';
my $found = 0;
: '';
my $found = 0;
+ my %skip = ();
foreach my $cdr (
qsearch( {
'table' => 'cdr',
foreach my $cdr (
qsearch( {
'table' => 'cdr',
@@
-61,6
+62,8
@@
while (1) {
} )
) {
} )
) {
+ next if $skip{$cdr->acctid};
+
$found = 1;
my @status = ();
$found = 1;
my @status = ();
@@
-125,6
+128,7
@@
while (1) {
warn "WARNING: error rewriting primary CDR (will retry): $error\n";
next;
}
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
push @status, 'taqua-accountcode';
$cdr->status('done'); #so it doesn't try to rate