get DIDs from globalpops

1 files changed, 80 insertions, 0 deletions

diff --git a/httemplate/elements/select-did.html b/httemplate/elements/select-did.html
new file mode 100644
index 000000000..999274fea
--- /dev/null
+++ b/httemplate/elements/select-did.html
@@ -0,0 +1,80 @@
+<%doc>
+
+Example:
+
+  include('/elements/select-did.html',
+            'field'   => 'phonenum',
+            'svcpart' => 5,
+         );
+
+</%doc>
+% if ( $use_selector ) {
+
+    <TABLE>
+
+      <TR>
+        <TD>
+          <% include('/elements/select-state.html',
+                       'country' => $country,
+                       'empty'   => 'Select state',
+                    )
+          %>
+        </TD>
+        <TD>
+          <% include('/elements/select-areacode.html',
+                       'svcpart' => $svcpart,
+                       'empty'   => 'Select area code',
+                    )
+          %>
+        </TD>
+        <TD>
+          <% include('/elements/select-exchange.html',
+                       'svcpart' => $svcpart,
+                       'empty'   => 'Select exchange',
+                    )
+          %>
+        </TD>
+        <TD>
+          <% include('/elements/select-phonenum.html',
+                       'svcpart' => $svcpart,
+                       'empty'   => 'Select phone number',
+                    )
+          %>
+        </TD>
+      </TR>
+
+      <TR>
+        <TD><FONT SIZE="-1">State</FONT></TD>
+        <TD><FONT SIZE="-1">Area code</FONT></TD>
+        <TD><FONT SIZE="-1">City / Exchange</FONT></TD>
+        <TD><FONT SIZE="-1">Phone number</FONT></TD>
+      </TR>
+
+    </TABLE>
+
+% } else {
+
+    <% include( '/elements/input-text.html', %opt, 'type'=>'text' ) %>
+
+% }
+<%init>
+
+my %opt = @_;
+
+my $conf = new FS::Conf;
+my $country = $conf->config('countrydefault') || 'US';
+
+#XXX make sure this comes through on errors too
+my $svcpart = $opt{'object'}->svcpart;
+
+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";
+}
+
+my $use_selector = scalar(@exports) ? 1 : 0;
+
+</%init>