From c29b4cb1eb515e29938af0b8da69ea8cb0f662e6 Mon Sep 17 00:00:00 2001 From: Ivan Kohler Date: Tue, 12 Feb 2019 14:19:07 -0800 Subject: remove out-of-date repeat author info --- FS/FS.pm | 30 +----------------------------- 1 file changed, 1 insertion(+), 29 deletions(-) diff --git a/FS/FS.pm b/FS/FS.pm index 9575c3d..aed0c5f 100644 --- a/FS/FS.pm +++ b/FS/FS.pm @@ -664,35 +664,7 @@ and higher SNR than the users list. Send a blank message to Commercial products and services are available; see and . -=head1 AUTHORS - -=head2 CORE TEAM - -Jeremy Davis - -Jason Hall - -Ivan Kohler - -Mark Wells - -=head2 CORE EMERITUS - -Peter Bowen - -Jeff Finucane - -Kristian Hoffman - -Erik Levinson - -Brian McCane - -Richard Siddall - -Matt Simerson - -=head2 CONTRIBUTORS +=head1 AUTHORS AND CONTRIBUTORS See httemplate/docs/credits.html -- cgit v1.1 From 9ad0cdfb307e346add9e3496cf3cbdc1eee4e7d8 Mon Sep 17 00:00:00 2001 From: Ivan Kohler Date: Tue, 12 Feb 2019 14:35:11 -0800 Subject: save skip reason for CDR, RT#81480 --- FS/FS/Schema.pm | 3 +++ FS/FS/cdr.pm | 2 ++ 2 files changed, 5 insertions(+) diff --git a/FS/FS/Schema.pm b/FS/FS/Schema.pm index 290c89d..fc22d6c 100644 --- a/FS/FS/Schema.pm +++ b/FS/FS/Schema.pm @@ -5660,6 +5660,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 5a398ce..aa1c406 100644 --- a/FS/FS/cdr.pm +++ b/FS/FS/cdr.pm @@ -518,6 +518,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_$_", @@ -681,6 +682,7 @@ sub rate_prefix { return $self->set_status_and_rated_price( 'skipped', 0, $opt{'svcnum'}, + 'statustext' => $reason, ); } -- cgit v1.1