[freeside-commits] freeside/FS/FS Conf.pm, 1.468.2.19, 1.468.2.20 cust_main.pm, 1.586.2.7, 1.586.2.8

[Ivan,,,]

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

Modified Files:
      Tag: FREESIDE_2_3_BRANCH
	Conf.pm cust_main.pm 
Log Message:
add inter.net numbering, RT#12981

Index: Conf.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/Conf.pm,v
retrieving revision 1.468.2.19
retrieving revision 1.468.2.20
diff -u -w -d -r1.468.2.19 -r1.468.2.20
--- Conf.pm	11 Nov 2011 03:13:16 -0000	1.468.2.19
+++ Conf.pm	17 Nov 2011 02:29:05 -0000	1.468.2.20
@@ -3779,6 +3779,7 @@
     'type'        => 'select',
     'select_hash' => [ '' => 'No',
                        '1YMMXXXXXXXX' => '1YMMXXXXXXXX',
+                       '1001XXXXXXXX' => '1001XXXXXXXX',
                      ],
   },
 

Index: cust_main.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/cust_main.pm,v
retrieving revision 1.586.2.7
retrieving revision 1.586.2.8
diff -u -w -d -r1.586.2.7 -r1.586.2.8
--- cust_main.pm	25 Oct 2011 22:35:20 -0000	1.586.2.7
+++ cust_main.pm	17 Nov 2011 02:29:05 -0000	1.586.2.8
@@ -676,6 +676,15 @@
 
     $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";
   }