diff options
author | ivan <ivan> | 2011-03-13 02:31:10 +0000 |
---|---|---|
committer | ivan <ivan> | 2011-03-13 02:31:10 +0000 |
commit | 37314c736907de968d3f61dd5dc93aa61c6ca161 (patch) | |
tree | 83657e8acce2bb28d6754bc03f0cab2600110263 /FS/FS/part_export/ikano.pm | |
parent | 1888d732dcc9f50b7f88ebc684d1c05b534cbd92 (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 | 16 |
1 files changed, 15 insertions, 1 deletions
diff --git a/FS/FS/part_export/ikano.pm b/FS/FS/part_export/ikano.pm index 604f47e..63b0ed3 100644 --- a/FS/FS/part_export/ikano.pm +++ b/FS/FS/part_export/ikano.pm @@ -42,6 +42,21 @@ sub rebless { shift; } sub external_pkg_map { 1; } +sub location_types { + ( + '' => '(None)', + 'APT' => 'Apartment', + 'BLDG' => 'Building', + 'FLR' => 'Floor', + 'LOT' => 'Lot', + 'RM' => 'Room', + 'SLIP' => 'Slip', + 'TRLR' => 'Trailer', + 'UNIT' => 'Unit', + 'WING' => 'Wing', + ); +} + sub dsl_pull { # we distinguish between invalid new data (return error) versus data that # has legitimately changed (may eventually execute hooks; now just update) @@ -263,7 +278,6 @@ sub qual { my($self,$qual) = (shift,shift); my %location_hash = $qual->location_hash; - warn Dumper $qual->location_hash; return 'No address provided' unless keys %location_hash; my $svctn = $qual->phonenum; |