projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
0be3757
)
RT# 78547 noexport_hack part_svc::saisei
author
Mitch Jackson
<mitch@mitchjacksontech.com>
Tue, 14 Aug 2018 23:45:53 +0000
(19:45 -0400)
committer
Mitch Jackson
<mitch@freeside.biz>
Wed, 15 Aug 2018 00:26:39 +0000
(20:26 -0400)
FS/FS/part_export/saisei.pm
patch
|
blob
|
history
diff --git
a/FS/FS/part_export/saisei.pm
b/FS/FS/part_export/saisei.pm
index
c79f79d
..
1b7295d
100644
(file)
--- 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 REST::Client;
use Data::Dumper;
use FS::Conf;
+use Carp qw(carp);
=pod
=pod
@@
-245,6
+246,12
@@
sub _export_unsuspend {
sub export_partsvc {
my ($self, $svc_part) = @_;
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 )) {
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 )) {
@@
-296,6
+303,12
@@
sub export_partsvc {
sub export_tower_sector {
my ($self, $tower) = @_;
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;
#modify tower or create it.
my $tower_name = $tower->{Hash}->{towername};
$tower_name =~ s/\s/_/g;