projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
77aa741
)
add customer code field, #14049
author
Mark Wells
<mark@freeside.biz>
Wed, 3 Sep 2014 18:51:07 +0000
(11:51 -0700)
committer
Mark Wells
<mark@freeside.biz>
Wed, 3 Sep 2014 18:51:07 +0000
(11:51 -0700)
FS/FS/part_export/nena2.pm
patch
|
blob
|
history
diff --git
a/FS/FS/part_export/nena2.pm
b/FS/FS/part_export/nena2.pm
index
ad67ba2
..
85576d2
100644
(file)
--- a/
FS/FS/part_export/nena2.pm
+++ b/
FS/FS/part_export/nena2.pm
@@
-20,6
+20,9
@@
tie %options, 'Tie::IxHash', (
'company_id' => { label => 'NENA company ID',
type => 'text',
},
'company_id' => { label => 'NENA company ID',
type => 'text',
},
+ 'customer_code' => { label => 'Customer code',
+ type => 'text',
+ },
'prefix' => { label => 'File name prefix',
type => 'text',
},
'prefix' => { label => 'File name prefix',
type => 'text',
},
@@
-215,7
+218,7
@@
sub data {
my $cust_location = FS::cust_location->by_key($locationnum);
# initialize with empty strings
my $cust_location = FS::cust_location->by_key($locationnum);
# initialize with empty strings
- my %hash = map { $_ => '' }
$item_format->names
;
+ my %hash = map { $_ => '' }
@{ $item_format->names }
;
$hash{function_code} = $function_code{$action};
$hash{function_code} = $function_code{$action};
@@
-277,13
+280,11
@@
sub data {
# so we can't comply. NENA 3 fixed this...
$hash{company_id} = $self->option('company_id');
# so we can't comply. NENA 3 fixed this...
$hash{company_id} = $self->option('company_id');
+ $hash{customer_code} = $self->option('customer_code') || '';
$hash{source_id} = $initial_load_hack ? 'C' : ' ';
$hash{source_id} = $initial_load_hack ? 'C' : ' ';
- @hash{'zip', 'zip_'} = split('-', $cust_location->zip);
-
- # $hash{customer_code} is supposed to "uniquely identify a customer" but
- # they give us 3 alphanumeric characters. Not sure how that works.
-
+ @hash{'zip_code', 'zip_4'} = split('-', $cust_location->zip);
+
$hash{x_coordinate} = $cust_location->longitude;
$hash{y_coordinate} = $cust_location->latitude;
# $hash{z_coordinate} = $cust_location->altitude; # not implemented, sadly
$hash{x_coordinate} = $cust_location->longitude;
$hash{y_coordinate} = $cust_location->latitude;
# $hash{z_coordinate} = $cust_location->altitude; # not implemented, sadly