X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fcdr.pm;h=9859dfade5e28928d29689a01526b0da5d52fb2f;hb=7a486dea647f735a9a1d0381443218ad6affe6e1;hp=cd1416533e509b2f8b56b898d6f4fc23b45afccc;hpb=e2d752f1e348d0903888aa85f46d6288e282d6c6;p=freeside.git diff --git a/FS/FS/cdr.pm b/FS/FS/cdr.pm index cd1416533..9859dfade 100644 --- a/FS/FS/cdr.pm +++ b/FS/FS/cdr.pm @@ -368,9 +368,9 @@ to inspect other field. sub is_tollfree { my $self = shift; my $field = scalar(@_) ? shift : 'dst'; - my $country = $conf->config('tollfree-country'); + my $country = $conf->config('tollfree-country') || ''; if ( $country eq 'AU' ) { - ( $self->$field() =~ /^(\+?61)?1800/ ) ? 1 : 0; + ( $self->$field() =~ /^(\+?61)?(1800|1300)/ ) ? 1 : 0; } elsif ( $country eq 'NZ' ) { ( $self->$field() =~ /^(\+?64)?(800|508)/ ) ? 1 : 0; } else { #NANPA (US/Canaada)