diff options
author | ivan <ivan> | 2011-03-13 18:56:03 +0000 |
---|---|---|
committer | ivan <ivan> | 2011-03-13 18:56:03 +0000 |
commit | 528e7e1cb1a6d05f87847bf9fd9b7e0e9fc33f6f (patch) | |
tree | 19e5e3331069417f221569dd4e6b9cd915e0500f /FS/FS/part_export/ikano.pm | |
parent | d66bff648dd4d7969f50f956b5c1dd06b8159b8c (diff) |
qualification address handling changes, RT#7111
Diffstat (limited to 'FS/FS/part_export/ikano.pm')
-rw-r--r-- | FS/FS/part_export/ikano.pm | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/FS/FS/part_export/ikano.pm b/FS/FS/part_export/ikano.pm index 153b4a6..b04defa 100644 --- a/FS/FS/part_export/ikano.pm +++ b/FS/FS/part_export/ikano.pm @@ -51,12 +51,24 @@ sub location_types { '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 @@ sub qual { 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; |