diff options
author | Mitch Jackson <mitch@mitchjacksontech.com> | 2018-08-14 19:45:53 -0400 |
---|---|---|
committer | Mitch Jackson <mitch@freeside.biz> | 2018-09-19 00:41:51 -0400 |
commit | c6c2d3beb9d4fc572132e1328546649c2b10697d (patch) | |
tree | 1cb399a412a061670ee7a7130e40e0a09f404a30 /FS/FS/part_export | |
parent | 70b42b53630d363ac0db942f6b1a12dd56a092ea (diff) |
RT# 78547 noexport_hack part_svc::saisei
Diffstat (limited to 'FS/FS/part_export')
-rw-r--r-- | FS/FS/part_export/saisei.pm | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/FS/FS/part_export/saisei.pm b/FS/FS/part_export/saisei.pm index 3af3c9d..6db43c1 100644 --- a/FS/FS/part_export/saisei.pm +++ b/FS/FS/part_export/saisei.pm @@ -9,6 +9,7 @@ use MIME::Base64; use REST::Client; use Data::Dumper; use FS::Conf; +use Carp qw(carp); =pod @@ -261,6 +262,12 @@ sub _export_unsuspend { sub export_partsvc { my ($self, $svc_part) = @_; + if ( $FS::svc_Common::noexport_hack ) { + carp 'export_partsvc() suppressed by noexport_hack' + if $self->option('debug'); + return; + } + my $fcc_477_speeds; if ($svc_part->{Hash}->{svc_broadband__speed_down} eq "down" || $svc_part->{Hash}->{svc_broadband__speed_up} eq "up") { for my $type (qw( down up )) { @@ -312,6 +319,12 @@ sub export_partsvc { sub export_tower_sector { my ($self, $tower) = @_; + if ( $FS::svc_Common::noexport_hack ) { + carp 'export_tower_sector() suppressed by noexport_hack' + if $self->option('debug'); + return; + } + #modify tower or create it. my $tower_name = $tower->{Hash}->{towername}; $tower_name =~ s/\s/_/g; |