projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
#14049 Fix error
[freeside.git]
/
FS
/
FS
/
part_export
/
nena2.pm
diff --git
a/FS/FS/part_export/nena2.pm
b/FS/FS/part_export/nena2.pm
index
50f4b16
..
fa3597b
100644
(file)
--- a/
FS/FS/part_export/nena2.pm
+++ b/
FS/FS/part_export/nena2.pm
@@
-15,7
+15,7
@@
my %upload_targets;
tie %options, 'Tie::IxHash', (
'company_name' => { label => 'Company name for header record',
tie %options, 'Tie::IxHash', (
'company_name' => { label => 'Company name for header record',
- type => 'text'
+ type => 'text'
,
},
'company_id' => { label => 'NENA company ID',
type => 'text',
},
'company_id' => { label => 'NENA company ID',
type => 'text',
@@
-224,15
+224,15
@@
sub data {
my %hash = map { $_ => '' } @{ $item_format->names };
$hash{function_code} = $function_code{$action};
my %hash = map { $_ => '' } @{ $item_format->names };
$hash{function_code} = $function_code{$action};
-
+
# Add default area code if phonenum is 7 digits
# Add default area code if phonenum is 7 digits
- if ($self->option('area_code') =~ /^\d{3}/ && $svc->phonenum =~ /^\d{7}/ ){
- $svc->phonenum = $self->option('area_code'). $svc->phonenum
+ my $phonenum = $svc->phonenum;
+ if ($self->option('area_code') =~ /^\d{3}$/ && $phonenum =~ /^\d{7}$/ ){
+ $phonenum = $self->option('area_code'). $svc->phonenum;
}
# phone number
}
# phone number
-
- $svc->phonenum =~ /^(\d{3})(\d*)$/;
+ $phonenum =~ /^(\d{3})(\d*)$/;
$hash{npa} = $1;
$hash{calling_number} = $2;
$hash{npa} = $1;
$hash{calling_number} = $2;