[freeside-commits] freeside/httemplate/misc areacodes.cgi, 1.1, 1.1.10.1 exchanges.cgi, 1.1, 1.1.10.1 phonenums.cgi, 1.3, 1.3.2.1

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/httemplate/misc
In directory wavetail.420.am:/tmp/cvs-serv19007/httemplate/misc

Modified Files:
      Tag: FREESIDE_2_3_BRANCH
	areacodes.cgi exchanges.cgi phonenums.cgi 
Log Message:
multiple DID provisioning, RT#13721

Index: exchanges.cgi
===================================================================
RCS file: /home/cvs/cvsroot/freeside/httemplate/misc/exchanges.cgi,v
retrieving revision 1.1
retrieving revision 1.1.10.1
diff -u -w -d -r1.1 -r1.1.10.1
--- exchanges.cgi	28 Jun 2008 23:03:09 -0000	1.1
+++ exchanges.cgi	10 Aug 2011 05:22:33 -0000	1.1.10.1
@@ -1,4 +1,3 @@
-%# [ <% join(', ', map { qq("$_") } @exchanges) %> ]
 <% objToJson(\@exchanges) %>
 <%init>
 
@@ -7,6 +6,9 @@
 my $part_svc = qsearchs('part_svc', { 'svcpart'=>$svcpart } );
 die "unknown svcpart $svcpart" unless $part_svc;
 
+my @exchanges = ();
+if ( $areacode ) {
+
 my @exports = $part_svc->part_export_did;
 if ( scalar(@exports) > 1 ) {
   die "more than one DID-providing export attached to svcpart $svcpart";
@@ -17,8 +19,8 @@
 
 my $something = $export->get_dids('areacode'=>$areacode);
 
-#warn Dumper($something);
+  @exchanges = @{ $something };
 
-my @exchanges = @{ $something };
+}
 
 </%init>

Index: areacodes.cgi
===================================================================
RCS file: /home/cvs/cvsroot/freeside/httemplate/misc/areacodes.cgi,v
retrieving revision 1.1
retrieving revision 1.1.10.1
diff -u -w -d -r1.1 -r1.1.10.1
--- areacodes.cgi	28 Jun 2008 23:03:09 -0000	1.1
+++ areacodes.cgi	10 Aug 2011 05:22:33 -0000	1.1.10.1
@@ -1,4 +1,3 @@
-%# [ <% join(', ', map { qq("$_") } @areacodes) %> ]
 <% objToJson(\@areacodes) %>
 <%init>
 
@@ -7,6 +6,9 @@
 my $part_svc = qsearchs('part_svc', { 'svcpart'=>$svcpart } );
 die "unknown svcpart $svcpart" unless $part_svc;
 
+my @areacodes = ();
+if ( $state ) {
+
 my @exports = $part_svc->part_export_did;
 if ( scalar(@exports) > 1 ) {
   die "more than one DID-providing export attached to svcpart $svcpart";
@@ -17,8 +19,8 @@
 
 my $something = $export->get_dids('state'=>$state);
 
-#warn Dumper($something);
+  @areacodes = @{ $something };
 
-my @areacodes = @{ $something };
+}
 
 </%init>

Index: phonenums.cgi
===================================================================
RCS file: /home/cvs/cvsroot/freeside/httemplate/misc/phonenums.cgi,v
retrieving revision 1.3
retrieving revision 1.3.2.1
diff -u -w -d -r1.3 -r1.3.2.1
--- phonenums.cgi	11 Jan 2011 15:49:12 -0000	1.3
+++ phonenums.cgi	10 Aug 2011 05:22:33 -0000	1.3.2.1
@@ -1,4 +1,4 @@
-<% objToJson(\@exchanges) %>
+<% objToJson(\@phonenums) %>
 <%init>
 
 my( $exchangestring, $svcpart ) = $cgi->param('arg');
@@ -6,6 +6,10 @@
 my $part_svc = qsearchs('part_svc', { 'svcpart'=>$svcpart } );
 die "unknown svcpart $svcpart" unless $part_svc;
 
+my @phonenums = ();
+
+if ( $exchangestring ) {
+
 my @exports = $part_svc->part_export_did;
 if ( scalar(@exports) > 1 ) {
   die "more than one DID-providing export attached to svcpart $svcpart";
@@ -31,6 +35,8 @@
 }
 
 my $something = $export->get_dids(%opts);
-my @exchanges = @{ $something };
+  @phonenums = @{ $something };
+
+}
 
 </%init>