diff options
| -rw-r--r-- | FS/FS/part_export/internal_diddb.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/FS/FS/part_export/internal_diddb.pm b/FS/FS/part_export/internal_diddb.pm index aa04b773a..c30d858ac 100644 --- a/FS/FS/part_export/internal_diddb.pm +++ b/FS/FS/part_export/internal_diddb.pm @@ -25,7 +25,7 @@ sub get_dids { 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' => '', ); @@ -80,7 +80,7 @@ sub _export_insert { #link phone_avail to 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, @@ -105,7 +105,7 @@ sub _export_delete { #unlink phone_avail from 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' => $svc_phone->svcnum, #these too? |