my $self = shift;
my %opt = ref($_[0]) ? %{$_[0]} : @_;
- my %hash = ( 'countrycode' => $self->option('countrycode'),
+ my %hash = ( 'countrycode' => ( $self->option('countrycode') || '1' ),
'exportnum' => $self->exportnum,
'svcnum' => '',
);
my( $npa, $nxx, $station ) = ($1, $2, $3);
my $phone_avail = qsearchs('phone_avail', {
- 'countrycode' => $self->option('countrycode'),
+ 'countrycode' => ( $self->option('countrycode') || '1' ),
'exportnum' => $self->exportnum,
'svcnum' => '',
'npa' => $npa,
my( $npa, $nxx, $station ) = ($1, $2, $3);
my $phone_avail = qsearchs('phone_avail', {
- 'countrycode' => $self->option('countrycode'),
+ 'countrycode' => ( $self->option('countrycode') || '1'),
'exportnum' => $self->exportnum,
'svcnum' => $svc_phone->svcnum,
#these too?