From: ivan <ivan>
Date: Thu, 17 Nov 2011 02:29:05 +0000 (+0000)
Subject: add inter.net numbering, RT#12981
X-Git-Tag: freeside_2_3_1~152
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=6a2b7becd6781a52febf81a278fe0824f8b015ac

add inter.net numbering, RT#12981
---

diff --git a/FS/FS/Conf.pm b/FS/FS/Conf.pm
index e49174b20..6eb539fcf 100644
--- a/FS/FS/Conf.pm
+++ b/FS/FS/Conf.pm
@@ -3622,9 +3622,9 @@ and customer address. Include units.',
     'description' => 'Enables searching of various formatted values in cust_main.agent_custid',
     'type'        => 'select',
     'select_hash' => [
-                       ''      => 'Numeric only',
-                       '\d{7}' => 'Numeric only, exactly 7 digits',
-                       'ww?d+' => 'Numeric with one or two letter prefix',
+                       ''       => 'Numeric only',
+                       '\d{7}'  => 'Numeric only, exactly 7 digits',
+                       'ww?d+'  => 'Numeric with one or two letter prefix',
                      ],
   },
 
@@ -3779,6 +3779,7 @@ and customer address. Include units.',
     'type'        => 'select',
     'select_hash' => [ '' => 'No',
                        '1YMMXXXXXXXX' => '1YMMXXXXXXXX',
+                       '1001XXXXXXXX' => '1001XXXXXXXX',
                      ],
   },
 
diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm
index 0bdc622f1..28f6e90e9 100644
--- a/FS/FS/cust_main.pm
+++ b/FS/FS/cust_main.pm
@@ -676,6 +676,15 @@ sub auto_agent_custid {
 
     $counter->unlock;
 
+  } elsif ( $format eq '1001XXXXXXXX' ) {
+
+    my $counter = new File::CounterFile 'cust_main.agent_custid';
+    $counter->lock;
+
+    $agent_custid = '1001'. $counter->inc;
+
+    $counter->unlock;
+
   } else {
     die "Unknown cust_main-auto_agent_custid format: $format";
   }