save skip reason for CDR, RT#81480

2 files changed, 5 insertions, 0 deletions

diff --git a/FS/FS/Schema.pm b/FS/FS/Schema.pm
index b9df650..a376dd9 100644
--- a/FS/FS/Schema.pm
+++ b/FS/FS/Schema.pm
@@ -5599,6 +5599,9 @@ sub tables_hashref {
         #NULL, done (or something)
         'freesidestatus', 'varchar',   'NULL',     32,   '', '', 
 
+        #additional status info (i.e. reason for "skipped" freesidestatus)
+        'freesidestatustext', 'text',  'NULL',     '',   '', '',
+
         #NULL, done (or something)
         'freesiderewritestatus', 'varchar',   'NULL',     32,   '', '', 
 
diff --git a/FS/FS/cdr.pm b/FS/FS/cdr.pm
index 57cbbb2..37cb30d 100644
--- a/FS/FS/cdr.pm
+++ b/FS/FS/cdr.pm
@@ -519,6 +519,7 @@ sub set_status_and_rated_price {
   } else {
 
     $self->freesidestatus($status);
+    $self->freesidestatustext($opt{'statustext'}) if exists($opt{'statustext'});
     $self->rated_price($rated_price);
     $self->$_($opt{$_})
       foreach grep exists($opt{$_}), map "rated_$_",
@@ -682,6 +683,7 @@ sub rate_prefix {
     return $self->set_status_and_rated_price( 'skipped',
                                               0,
                                               $opt{'svcnum'},
+                                              'statustext' => $reason,
                                             );
   }