avoid putting old CDRs back in a "rated" state, RT#15839

diff --git a/FS/FS/cdr.pm b/FS/FS/cdr.pm
index cb866ca..92586db 100644 (file)
--- a/FS/FS/cdr.pm
+++ b/FS/FS/cdr.pm
@@ -1254,6 +1254,7 @@ sub clear_status {
   my $dbh = dbh;
 
   if ( $cdr_prerate && $cdr_prerate_cdrtypenums{$self->cdrtypenum}
   my $dbh = dbh;
 
   if ( $cdr_prerate && $cdr_prerate_cdrtypenums{$self->cdrtypenum}

+       && $self->rated_ratedetailnum #avoid putting old CDRs back in "rated"

        && $self->freesidestatus eq 'done'
      )
   { #special case
        && $self->freesidestatus eq 'done'
      )
   { #special case