diff options
author | Christopher Burger <burgerc@freeside.biz> | 2019-04-21 16:14:13 -0400 |
---|---|---|
committer | Christopher Burger <burgerc@freeside.biz> | 2019-04-21 19:50:44 -0400 |
commit | d6e48aee6cf1e19d001b8837288cf2630d6917e6 (patch) | |
tree | 4b30df4b2916546a78f82fb53ee4f244d7945a04 /FS/FS/part_export | |
parent | ee6e93f7d4fc9368eda5443796f2c99cf5d0ead9 (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.pm | 16 |
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) = @_; |