diff options
| author | ivan <ivan> | 2009-09-15 23:13:34 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2009-09-15 23:13:34 +0000 |
| commit | 551634efa453c7dd6d19cf7de461650cab1b1690 (patch) | |
| tree | eb97bb7ebdf6531f21716f388dab1a5cf252a488 | |
| parent | 8e37628d7bbba59e26c50bb380dc096379bc2127 (diff) | |
set svcnum when rating CDR, RT#5495
| -rw-r--r-- | FS/FS/cdr.pm | 5 | ||||
| -rw-r--r-- | FS/FS/part_pkg/voip_cdr.pm | 5 |
2 files changed, 7 insertions, 3 deletions
diff --git a/FS/FS/cdr.pm b/FS/FS/cdr.pm index c5b2ab90c..d9c602f9d 100644 --- a/FS/FS/cdr.pm +++ b/FS/FS/cdr.pm @@ -375,7 +375,7 @@ sub set_charged_party { } -=item set_status_and_rated_price STATUS [ RATED_PRICE ] +=item set_status_and_rated_price STATUS [ RATED_PRICE [ SVCNUM ] ] Sets the status to the provided string. If there is an error, returns the error, otherwise returns false. @@ -383,9 +383,10 @@ error, otherwise returns false. =cut sub set_status_and_rated_price { - my($self, $status, $rated_price) = @_; + my($self, $status, $rated_price, $svcnum) = @_; $self->freesidestatus($status); $self->rated_price($rated_price); + $self->svcnum($svcnum) if $svcnum; $self->replace(); } diff --git a/FS/FS/part_pkg/voip_cdr.pm b/FS/FS/part_pkg/voip_cdr.pm index ee0091469..f851b41d9 100644 --- a/FS/FS/part_pkg/voip_cdr.pm +++ b/FS/FS/part_pkg/voip_cdr.pm @@ -591,7 +591,10 @@ sub calc_usage { #$downstream_cdr .= $cdr->downstream_csv( 'format' => 'XXX format' ) # if $spool_cdr; - my $error = $cdr->set_status_and_rated_price('done', $charge); + my $error = $cdr->set_status_and_rated_price( 'done', + $charge, + $cust_svc->svcnum, + ); die $error if $error; } |