httemplate/elements/select-did.html

   1 <%doc>
   2
   3 Example:
   4
   5   include('/elements/select-did.html',
   6             'field'   => 'phonenum',
   7             'svcpart' => 5,
   8          );
   9
  10 </%doc>
  11 % if ( $use_selector ) {
  12
  13     <TABLE>
  14
  15       <TR>
  16         <TD>
  17           <% include('/elements/select-state.html',
  18                        'country' => $country,
  19                        'empty'   => 'Select state',
  20                     )
  21           %>
  22         </TD>
  23         <TD>
  24           <% include('/elements/select-areacode.html',
  25                        'svcpart' => $svcpart,
  26                        'empty'   => 'Select area code',
  27                     )
  28           %>
  29         </TD>
  30         <TD>
  31           <% include('/elements/select-exchange.html',
  32                        'svcpart' => $svcpart,
  33                        'empty'   => 'Select exchange',
  34                     )
  35           %>
  36         </TD>
  37         <TD>
  38           <% include('/elements/select-phonenum.html',
  39                        'svcpart' => $svcpart,
  40                        'empty'   => 'Select phone number',
  41                     )
  42           %>
  43         </TD>
  44       </TR>
  45
  46       <TR>
  47         <TD><FONT SIZE="-1">State</FONT></TD>
  48         <TD><FONT SIZE="-1">Area code</FONT></TD>
  49         <TD><FONT SIZE="-1">City / Exchange</FONT></TD>
  50         <TD><FONT SIZE="-1">Phone number</FONT></TD>
  51       </TR>
  52
  53     </TABLE>
  54
  55 % } else {
  56
  57     <% include( '/elements/input-text.html', %opt, 'type'=>'text' ) %>
  58
  59 % }
  60 <%init>
  61
  62 my %opt = @_;
  63
  64 my $conf = new FS::Conf;
  65 my $country = $conf->config('countrydefault') || 'US';
  66
  67 #XXX make sure this comes through on errors too
  68 my $svcpart = $opt{'object'}->svcpart;
  69
  70 my $part_svc = qsearchs('part_svc', { 'svcpart'=>$svcpart } );
  71 die "unknown svcpart $svcpart" unless $part_svc;
  72
  73 my @exports = $part_svc->part_export_did;
  74 if ( scalar(@exports) > 1 ) {
  75   die "more than one DID-providing export attached to svcpart $svcpart";
  76 }
  77
  78 my $use_selector = scalar(@exports) ? 1 : 0;
  79
  80 </%init>