projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
UX: add status to package actions, redirect back to package tab
[freeside.git]
/
bin
/
taqua-accountcode-rewrite
diff --git
a/bin/taqua-accountcode-rewrite
b/bin/taqua-accountcode-rewrite
index
97e0a46
..
e6d5790
100755
(executable)
--- a/
bin/taqua-accountcode-rewrite
+++ b/
bin/taqua-accountcode-rewrite
@@
-2,9
+2,8
@@
my $usage = "
This script is for fixing CDRs that were supposed to receive Taqua
my $usage = "
This script is for fixing CDRs that were supposed to receive Taqua
-accountcode/caller ID rewrites but didn't. It will skip records that had
-any rewrites performed, but will operate on CDRs that have already been
-billed. Options:
+accountcode/caller ID rewrites but didn't. It will reprocess records that
+were already rewritten, so use with caution. Options:
-s DATE: find calls on or after DATE (required)
-e DATE: find calls on or before DATE (optional, defaults to right now)
-s DATE: find calls on or after DATE (required)
-e DATE: find calls on or before DATE (optional, defaults to right now)
@@
-25,7
+24,7
@@
die $usage unless $opt{start};
my $fixed = 0;
my $notfound = 0;
my $failed = 0;
my $fixed = 0;
my $notfound = 0;
my $failed = 0;
-my $extra_sql = 'WHERE lastapp IS NOT NULL
AND freesiderewritestatus IS NULL'
.
+my $extra_sql = 'WHERE lastapp IS NOT NULL
'
.
' AND cdrtypenum = 1'.
' AND calldate >= to_timestamp('.$opt{start}.')';
if ( $opt{end} ) {
' AND cdrtypenum = 1'.
' AND calldate >= to_timestamp('.$opt{start}.')';
if ( $opt{end} ) {
@@
-117,7
+116,7
@@
while (my $cdr = $cursor->fetch) {
# source number, and start and end dates
$detail = qsearchs('cust_bill_pkg_detail', {
'amount' => $primary->rated_price,
# source number, and start and end dates
$detail = qsearchs('cust_bill_pkg_detail', {
'amount' => $primary->rated_price,
- 'classnum' => $
cdr
->rated_classnum,
+ 'classnum' => $
primary
->rated_classnum,
'duration' => $primary->rated_seconds,
'startdate' => $primary->startdate,
'format' => 'C',
'duration' => $primary->rated_seconds,
'startdate' => $primary->startdate,
'format' => 'C',