projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
103b351
)
add option to trim leading zeros when setting charged_party to accountcode, RT#5495
author
ivan
<ivan>
Wed, 15 Jul 2009 22:49:33 +0000
(22:49 +0000)
committer
ivan
<ivan>
Wed, 15 Jul 2009 22:49:33 +0000
(22:49 +0000)
FS/FS/Conf.pm
patch
|
blob
|
history
FS/FS/cdr.pm
patch
|
blob
|
history
diff --git
a/FS/FS/Conf.pm
b/FS/FS/Conf.pm
index
70dfa68
..
eb046ee
100644
(file)
--- a/
FS/FS/Conf.pm
+++ b/
FS/FS/Conf.pm
@@
-2751,6
+2751,13
@@
worry that config_items is freeside-specific and icky.
'type' => 'checkbox',
},
'type' => 'checkbox',
},
+ {
+ 'key' => 'cdr-charged_party-accountcode-trim_leading_0s',
+ 'section' => '',
+ 'description' => 'When setting the charged_party field of CDRs to the accountcode, trim any leading zeros.',
+ 'type' => 'checkbox',
+ },
+
# {
# 'key' => 'cdr-charged_party-truncate_prefix',
# 'section' => '',
# {
# 'key' => 'cdr-charged_party-truncate_prefix',
# 'section' => '',
diff --git
a/FS/FS/cdr.pm
b/FS/FS/cdr.pm
index
723123a
..
efccd4b
100644
(file)
--- 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 ){
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 {
} else {