[freeside-commits] freeside/FS/FS/part_export ikano.pm,1.21,1.22

[Ivan,,,]

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

Modified Files:
	ikano.pm 
Log Message:
qualification address handling changes, RT#7111

Index: ikano.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_export/ikano.pm,v
retrieving revision 1.21
retrieving revision 1.22
diff -u -w -d -r1.21 -r1.22
--- ikano.pm	13 Mar 2011 03:49:25 -0000	1.21
+++ ikano.pm	13 Mar 2011 18:56:03 -0000	1.22
@@ -51,12 +51,24 @@
     'LOT'  => 'Lot',
     'RM'   => 'Room',
     'SLIP' => 'Slip',
+    'SUIT' => 'Suite',
     'TRLR' => 'Trailer',
     'UNIT' => 'Unit',
     'WING' => 'Wing',
   );
 }
 
+sub location_types_parse {
+  my $class = shift;
+  my %t = $class->location_types;
+  delete $t{''};
+  (
+    (map { $_ => $_ } keys %t),
+    (reverse %t),
+    'STE' => 'SUIT', #USPS
+  );
+}
+
 sub dsl_pull {
 # we distinguish between invalid new data (return error) versus data that
 # has legitimately changed (may eventually execute hooks; now just update)
@@ -280,6 +292,7 @@
     my %location_hash = $qual->location_hash; 
     return 'No address provided' unless keys %location_hash;
 
+    warn Dumper(\%location_hash);
     return 'Location kind is required' unless $location_hash{location_kind};
 
     my $svctn = $qual->phonenum;