From 24f8d52f90be8e99b10734f49d451e1e70afdfbc Mon Sep 17 00:00:00 2001
From: Ivan Kohler <ivan@freeside.biz>
Date: Sun, 20 Oct 2013 20:59:30 -0700
Subject: normalize contact phone formatting

---
 FS/FS/contact_phone.pm | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)

(limited to 'FS/FS/contact_phone.pm')

diff --git a/FS/FS/contact_phone.pm b/FS/FS/contact_phone.pm
index 55cb09d..7ba8523 100644
--- a/FS/FS/contact_phone.pm
+++ b/FS/FS/contact_phone.pm
@@ -131,6 +131,29 @@ sub check {
   $self->SUPER::check;
 }
 
+sub phonenum_pretty {
+  my $self = shift;
+
+  #until/unless we have the upgrade strip all whitespace
+  (my $phonenum = $self->phonenum ) =~ s/\D//g;
+
+  if ( $self->countrycode == 1 ) {
+
+    $phonenum =~ /^(\d{3})(\d{3})(\d{4})(\d*)$/
+      or return $self->phonenum; #wtf?
+
+    $phonenum = "($1) $2-$3";
+    $phonenum .= " x$4" if $4;
+    return $phonenum;
+
+  } else {
+    warn "don't know how to format phone numbers for country +". $self->countrycode;
+    #also, the UI doesn't have a good way for you to enter them yet or parse a countrycode from the number
+    return $self->phonenum;
+  }
+
+}
+
 =back
 
 =head1 BUGS
-- 
cgit v1.1