1 %# [ <% join(', ', map { qq("$_") } @areacodes) %> ]
2 <% objToJson(\@areacodes) %>
5 my( $state, $svcpart ) = $cgi->param('arg');
7 my $part_svc = qsearchs('part_svc', { 'svcpart'=>$svcpart } );
8 die "unknown svcpart $svcpart" unless $part_svc;
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";
16 my $export = $exports[0];
18 my $something = $export->get_dids('state'=>$state);
20 #warn Dumper($something);
22 my @areacodes = @{ $something };