httemplate/elements/select-did.html

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