[freeside-commits] freeside/FS/FS cdr.pm,1.37,1.38

[Jeff Finucane,420,,]

Update of /home/cvs/cvsroot/freeside/FS/FS
In directory wavetail.420.am:/tmp/cvs-serv7964

Modified Files:
	cdr.pm 
Log Message:
a tollfree regex that captures 88x and works with +1

Index: cdr.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/cdr.pm,v
retrieving revision 1.37
retrieving revision 1.38
diff -u -d -r1.37 -r1.38
--- cdr.pm	7 Apr 2009 02:18:16 -0000	1.37
+++ cdr.pm	7 Apr 2009 02:50:46 -0000	1.38
@@ -277,7 +277,7 @@
 
 sub is_tollfree {
   my $self = shift;
-  ( $self->dst =~ /^(\+?1)?8([02-8])\1/ ) ? 1 : 0;
+  ( $self->dst =~ /^(\+?1)?8(8|([02-7])\3)/ ) ? 1 : 0;
 }
 
 =item set_charged_party