: '';
my $found = 0;
+ my %skip = ();
foreach my $cdr (
qsearch( {
'table' => 'cdr',
} )
) {
+ next if $skip{$cdr->acctid};
+
$found = 1;
my @status = ();
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