[freeside-commits] branch FREESIDE_3_BRANCH updated. f5a3514aa0c5b197a7c520205f8103da1363572a
Ivan
ivan at 420.am
Sat Jun 28 23:40:27 PDT 2014
The branch, FREESIDE_3_BRANCH has been updated
via f5a3514aa0c5b197a7c520205f8103da1363572a (commit)
from 9dc85ed9f36fbc48364305f9590ba7b3c230f20f (commit)
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.
- Log -----------------------------------------------------------------
commit f5a3514aa0c5b197a7c520205f8103da1363572a
Author: Ivan Kohler <ivan at freeside.biz>
Date: Sat Jun 28 23:40:26 2014 -0700
new zealand toll-free, RT#29638
diff --git a/FS/FS/Conf.pm b/FS/FS/Conf.pm
index 54a9ca3..fba20fa 100644
--- a/FS/FS/Conf.pm
+++ b/FS/FS/Conf.pm
@@ -5755,6 +5755,7 @@ and customer address. Include units.',
'type' => 'select',
'select_hash' => [ '' => 'NANPA (US/Canada)',
'AU' => 'Australia',
+ 'NZ' => 'New Zealand',
],
},
diff --git a/FS/FS/cdr.pm b/FS/FS/cdr.pm
index cced0eb..cd14165 100644
--- a/FS/FS/cdr.pm
+++ b/FS/FS/cdr.pm
@@ -370,6 +370,8 @@ sub is_tollfree {
my $field = scalar(@_) ? shift : 'dst';
my $country = $conf->config('tollfree-country');
if ( $country eq 'AU' ) {
+ ( $self->$field() =~ /^(\+?61)?1800/ ) ? 1 : 0;
+ } elsif ( $country eq 'NZ' ) {
( $self->$field() =~ /^(\+?64)?(800|508)/ ) ? 1 : 0;
} else { #NANPA (US/Canaada)
( $self->$field() =~ /^(\+?1)?8(8|([02-7])\3)/ ) ? 1 : 0;
-----------------------------------------------------------------------
Summary of changes:
FS/FS/Conf.pm | 1 +
FS/FS/cdr.pm | 2 ++
2 files changed, 3 insertions(+)
More information about the freeside-commits
mailing list