},
{
+ 'key' => 'cdr-charged_party-truncate_prefix',
+ 'section' => '',
+ 'description' => 'If the charged_party field has this prefix, truncate it to the length in cdr-charged_party-truncate_length.',
+ 'type' => 'text',
+ },
+
+ {
+ 'key' => 'cdr-charged_party-truncate_length',
+ 'section' => '',
+ 'description' => 'If the charged_party field has the prefix in cdr-charged_party-truncate_prefix, truncate it to this length.',
+ 'type' => 'text',
+ },
+
+ {
'key' => 'cdr-charged_party_rewrite',
'section' => '',
- 'description' => 'Do charged party rewriting in the freeside-cdrrewrited daemon; useful if CDRs are being dropped off directly in the database and require special charged_party processing such as cdr-charged_party-accountcode.',
+ 'description' => 'Do charged party rewriting in the freeside-cdrrewrited daemon; useful if CDRs are being dropped off directly in the database and require special charged_party processing such as cdr-charged_party-accountcode or cdr-charged_party-truncate*.',
'type' => 'checkbox',
},
sub set_charged_party {
my $self = shift;
- unless ( $self->charged_party ) {
+ my $conf = new FS::Conf;
- my $conf = new FS::Conf;
+ unless ( $self->charged_party ) {
if ( $conf->exists('cdr-charged_party-accountcode') && $self->accountcode ){
}
+ my $prefix = $conf->config('cdr-charged_party-truncate_prefix');
+ my $prefix_len = length($prefix);
+ my $trunc_len = $conf->config('cdr-charged_party-truncate_length');
+
+ $self->charged_party( substr($self->charged_party, 0, $trunc_len) )
+ if $prefix_len && $trunc_len
+ && substr($self->charged_party, 0, $prefix_len) eq $prefix;
+
}
=item set_status_and_rated_price STATUS [ RATED_PRICE ]