httemplate/misc/areacodes.cgi

   1 %# [ <% join(', ', map { qq("$_") } @areacodes) %> ]
   2 <% objToJson(\@areacodes) %>
   3 <%init>
   4
   5 my( $state, $svcpart ) = $cgi->param('arg');
   6
   7 my $part_svc = qsearchs('part_svc', { 'svcpart'=>$svcpart } );
   8 die "unknown svcpart $svcpart" unless $part_svc;
   9
  10 my @exports = $part_svc->part_export_did;
  11 if ( scalar(@exports) > 1 ) {
  12   die "more than one DID-providing export attached to svcpart $svcpart";
  13 } elsif ( ! @exports ) {
  14   die "no DID providing export attached to svcpart $svcpart";
  15 }
  16 my $export = $exports[0];
  17
  18 my $something = $export->get_dids('state'=>$state);
  19
  20 #warn Dumper($something);
  21
  22 my @areacodes = @{ $something };
  23
  24 </%init>