set svcnum when rating CDR, RT#5495

1 files changed, 3 insertions, 2 deletions

diff --git a/FS/FS/cdr.pm b/FS/FS/cdr.pm
index c5b2ab9..d9c602f 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();
 }