diff options
| author | ivan <ivan> | 2009-07-15 22:49:33 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2009-07-15 22:49:33 +0000 |
| commit | adb66f1922f56a50212d42af9c608b4ee3c7f0a0 (patch) | |
| tree | 5daf34d5c85a33d0c93371e0fb5d71c42778c8c1 /FS/FS/cdr.pm | |
| parent | 103b35181e4d7bbf4c66fedc0550c9ad40564704 (diff) | |
add option to trim leading zeros when setting charged_party to accountcode, RT#5495
Diffstat (limited to 'FS/FS/cdr.pm')
| -rw-r--r-- | FS/FS/cdr.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/FS/FS/cdr.pm b/FS/FS/cdr.pm index 723123a..efccd4b 100644 --- a/FS/FS/cdr.pm +++ b/FS/FS/cdr.pm @@ -349,7 +349,10 @@ sub set_charged_party { if ( $conf->exists('cdr-charged_party-accountcode') && $self->accountcode ){ - $self->charged_party( $self->accountcode ); + my $charged_party = $self->accountcode; + $charged_party =~ s/^0+// + if $conf->exists('cdr-charged_party-accountcode-trim_leading_0s'); + $self->charged_party( $charged_party ); } else { |