sub rate_prefix {
my $self = shift;
+ map { $_ } #return $self->num_rate_prefix unless wantarray;
sort { $a->countrycode cmp $b->countrycode
or $a->npa cmp $b->npa
or $a->nxx cmp $b->nxx
sub dest_detail {
my $self = shift;
- qsearch( 'rate_detail', { 'dest_regionnum' => $self->regionnum, } );
+ qsearch( 'rate_detail', { 'dest_regionnum' => $self->regionnum } );
}
=item prefixes_short
}
my $npa = $rate_prefix->npa;
if ( $countrycode eq '1' ) {
- $out .= '('. substr( $npa, 0, 3 ). ')';
+ #$out .= '('. substr( $npa, 0, 3 ). ')';
+ $out .= substr( $npa, 0, 3 );
$out .= ' '. substr( $npa, 3 ) if length($npa) > 3;
} else {
$out .= $rate_prefix->npa;
}
+ $out .= '-'. $rate_prefix->nxx if $rate_prefix->nxx;
$out .= ', ';
}
$out =~ s/, $//;