From: levinse <levinse>
Date: Tue, 5 Apr 2011 23:46:13 +0000 (+0000)
Subject: ikano qual: only send the first 5 digits of zip if more are present
X-Git-Tag: freeside_2_3_0~447
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=2daf4c6c460e66d67839ad48f4b050be181e109f;p=freeside.git

ikano qual: only send the first 5 digits of zip if more are present
---

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",