diff options
author | levinse <levinse> | 2011-04-05 23:46:13 +0000 |
---|---|---|
committer | levinse <levinse> | 2011-04-05 23:46:13 +0000 |
commit | 2daf4c6c460e66d67839ad48f4b050be181e109f (patch) | |
tree | a3f1dc8b7f81f64ed2e7aaa4843a8feb0a25be53 /FS/FS/part_export | |
parent | d9b658c9e5eeff10eaaea27c2542fb81951cee55 (diff) |
ikano qual: only send the first 5 digits of zip if more are present
Diffstat (limited to 'FS/FS/part_export')
-rw-r--r-- | FS/FS/part_export/ikano.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/FS/FS/part_export/ikano.pm b/FS/FS/part_export/ikano.pm index e34a3d898..068013ade 100644 --- a/FS/FS/part_export/ikano.pm +++ b/FS/FS/part_export/ikano.pm @@ -295,13 +295,16 @@ sub qual { my $svctn = $qual->phonenum; + my $zip = $location_hash{zip}; + $zip =~ s/(\d{5})-\d{4}/$1/; + my $result = $self->ikano_command('PREQUAL', { AddressLine1 => $location_hash{address1}, AddressUnitType => $location_hash{location_type}, AddressUnitValue => $location_hash{location_number}, AddressCity => $location_hash{city}, AddressState => $location_hash{state}, - ZipCode => $location_hash{zip}, + ZipCode => $zip, Country => $location_hash{country}, LocationType => $location_hash{location_kind}, PhoneNumber => length($svctn) > 1 ? $svctn : "STANDALONE", |