projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
qualification address handling changes, RT#7111
[freeside.git]
/
FS
/
FS
/
part_export
/
ikano.pm
diff --git
a/FS/FS/part_export/ikano.pm
b/FS/FS/part_export/ikano.pm
index
63b0ed3
..
b04defa
100644
(file)
--- 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',
'LOT' => 'Lot',
'RM' => 'Room',
'SLIP' => 'Slip',
+ 'SUIT' => 'Suite',
'TRLR' => 'Trailer',
'UNIT' => 'Unit',
'WING' => 'Wing',
);
}
'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)
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,9
@@
sub qual {
my %location_hash = $qual->location_hash;
return 'No address provided' unless keys %location_hash;
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;
my $result = $self->ikano_command('PREQUAL',
my $svctn = $qual->phonenum;
my $result = $self->ikano_command('PREQUAL',