X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Fcdr.pm;h=8113412c1725083d68dd9b88e738e1fe24fd0cdd;hp=0771a7b32781bdccb50ea70a8c2b54c1c9853949;hb=752c8c301644253af3ed8a316e93345bbe016c45;hpb=d38101d94807b4d7cff6bbff537cabe3b9837f51 diff --git a/FS/FS/cdr.pm b/FS/FS/cdr.pm index 0771a7b32..8113412c1 100644 --- a/FS/FS/cdr.pm +++ b/FS/FS/cdr.pm @@ -368,7 +368,12 @@ to inspect other field. sub is_tollfree { my $self = shift; my $field = scalar(@_) ? shift : 'dst'; - ( $self->$field() =~ /^(\+?1)?8(8|([02-7])\3)/ ) ? 1 : 0; + my $country = $conf->config('tollfree-country'); + if ( $country eq 'AU' ) { + ( $self->$field() =~ /^(\+?64)?(800|508)/ ) ? 1 : 0; + } else { #NANPA (US/Canaada) + ( $self->$field() =~ /^(\+?1)?8(8|([02-7])\3)/ ) ? 1 : 0; + } } =item set_charged_party