summaryrefslogtreecommitdiff
path: root/FS/FS/part_export
diff options
context:
space:
mode:
authorChristopher Burger <burgerc@freeside.biz>2019-04-21 16:14:13 -0400
committerChristopher Burger <burgerc@freeside.biz>2019-04-21 19:50:44 -0400
commitd6e48aee6cf1e19d001b8837288cf2630d6917e6 (patch)
tree4b30df4b2916546a78f82fb53ee4f244d7945a04 /FS/FS/part_export
parentee6e93f7d4fc9368eda5443796f2c99cf5d0ead9 (diff)
RT# 83039 - only towers with sectors shown on provisioning page when export requires sectors
Diffstat (limited to 'FS/FS/part_export')
-rw-r--r--FS/FS/part_export/saisei.pm16
1 files changed, 16 insertions, 0 deletions
diff --git a/FS/FS/part_export/saisei.pm b/FS/FS/part_export/saisei.pm
index 6fb504f..61aa12d 100644
--- a/FS/FS/part_export/saisei.pm
+++ b/FS/FS/part_export/saisei.pm
@@ -197,6 +197,7 @@ sub _export_insert {
'sector_name' => $sector_name,
'sector_uprate_limit' => $tower_sector->{Hash}->{sector_upratelimit},
'sector_downrate_limit' => $tower_sector->{Hash}->{sector_downratelimit},
+ 'rateplan' => $rateplan_name,
};
my $accesspoint = process_sector($self, $sector_opt);
return $self->api_error if $self->{'__saisei_error'};
@@ -828,6 +829,11 @@ sub process_tower {
sub process_sector {
my ($self, $opt) = @_;
+ if (!$opt->{sector_name} || $opt->{sector_name} eq '_default') {
+ $self->{'__saisei_error'} = "No sector attached to Tower (".$opt->{tower_name}.") for service ".$opt->{'rateplan'}.". Saisei requires a tower sector to be attached to each service that is exported to Saisei.";
+ return { error => $self->api_error, };
+ }
+
if (!$opt->{sector_uprate_limit} || !$opt->{sector_downrate_limit}) {
$self->{'__saisei_error'} = "Could not export sector ".$opt->{tower_name}." because there was no up or down rates attached to the sector. Saisei requires a up and down rate be attached to each sector.";
return { error => $self->api_error, };
@@ -864,6 +870,16 @@ sub process_sector {
return $accesspoint;
}
+=head2 require_tower_and_sector
+
+sets whether the service export requires a sector with it's tower.
+
+=cut
+
+sub require_tower_and_sector {
+ 1;
+}
+
sub process_virtual_ap {
my ($self, $opt) = @_;