[freeside-commits] freeside/FS/FS/part_export ikano.pm,1.26,1.27

[Erik Levinson]

Update of /home/cvs/cvsroot/freeside/FS/FS/part_export
In directory wavetail.420.am:/tmp/cvs-serv25433/FS/FS/part_export

Modified Files:
	ikano.pm 
Log Message:
ikano qual: only send the first 5 digits of zip if more are present

Index: ikano.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_export/ikano.pm,v
retrieving revision 1.26
retrieving revision 1.27
diff -u -w -d -r1.26 -r1.27
--- ikano.pm	27 Mar 2011 23:01:47 -0000	1.26
+++ ikano.pm	5 Apr 2011 23:46:13 -0000	1.27
@@ -295,13 +295,16 @@
 
     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",