From 424ae31847c4fd44e6ed55ec275c8e668c7d2b51 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Wed, 10 Aug 2011 05:22:32 +0000
Subject: multiple DID provisioning, RT#13721

---
 httemplate/misc/exchanges.cgi | 24 +++++++++++++-----------
 1 file changed, 13 insertions(+), 11 deletions(-)

(limited to 'httemplate/misc/exchanges.cgi')

diff --git a/httemplate/misc/exchanges.cgi b/httemplate/misc/exchanges.cgi
index f5860cff2..8a67f7bab 100644
--- a/httemplate/misc/exchanges.cgi
+++ b/httemplate/misc/exchanges.cgi
@@ -1,4 +1,3 @@
-%# [ <% join(', ', map { qq("$_") } @exchanges) %> ]
 <% objToJson(\@exchanges) %>
 <%init>
 
@@ -7,18 +6,21 @@ my( $areacode, $svcpart ) = $cgi->param('arg');
 my $part_svc = qsearchs('part_svc', { 'svcpart'=>$svcpart } );
 die "unknown svcpart $svcpart" unless $part_svc;
 
-my @exports = $part_svc->part_export_did;
-if ( scalar(@exports) > 1 ) {
-  die "more than one DID-providing export attached to svcpart $svcpart";
-} elsif ( ! @exports ) {
-  die "no DID providing export attached to svcpart $svcpart";
-}
-my $export = $exports[0];
+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";
+  } elsif ( ! @exports ) {
+    die "no DID providing export attached to svcpart $svcpart";
+  }
+  my $export = $exports[0];
 
-my $something = $export->get_dids('areacode'=>$areacode);
+  my $something = $export->get_dids('areacode'=>$areacode);
 
-#warn Dumper($something);
+  @exchanges = @{ $something };
 
-my @exchanges = @{ $something };
+}
 
 </%init>
-- 
cgit v1.2.1