From 902e98b8b1dd2fd4ba76e5f8b3d1d20796d65a69 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Thu, 23 Dec 2004 07:29:36 +0000
Subject: [PATCH] better short prefix display

---
 FS/FS/rate_region.pm | 15 +++++++++++----
 1 file changed, 11 insertions(+), 4 deletions(-)

diff --git a/FS/FS/rate_region.pm b/FS/FS/rate_region.pm
index 7945f5290..65dfd2a25 100644
--- a/FS/FS/rate_region.pm
+++ b/FS/FS/rate_region.pm
@@ -281,13 +281,20 @@ sub prefixes_short {
 
   foreach my $rate_prefix ( $self->rate_prefix ) {
     if ( $countrycode ne $rate_prefix->countrycode ) {
-      $out =~ s/,$//;
+      $out =~ s/, $//;
       $countrycode = $rate_prefix->countrycode;
-      $out.= " $countrycode-";
+      $out.= " +$countrycode ";
     }
-    $out .= $rate_prefix->npa. ',';
+    my $npa = $rate_prefix->npa;
+    if ( $countrycode eq '1' ) {
+      $out .= '('. substr( $npa, 0, 3 ). ')';
+      $out .= ' '. substr( $npa, 3 ) if length($npa) > 3;
+    } else {
+      $out .= $rate_prefix->npa;
+    }
+    $out .= ', ';
   }
-  $out =~ s/,$//;
+  $out =~ s/, $//;
 
   $out;
 }
-- 
2.11.0