diff options
author | Mitch Jackson <mitch@mitchjacksontech.com> | 2018-08-14 19:57:38 -0400 |
---|---|---|
committer | Mitch Jackson <mitch@freeside.biz> | 2018-09-19 00:41:51 -0400 |
commit | 32292936eacc92ddd6edb5071a7ca027dc249e8d (patch) | |
tree | 08406892f56977d4dcbecc554dd9e56043f73807 /FS/FS/part_export | |
parent | cb06cc9e1aec923326a38d06a17bc1a23cee7246 (diff) |
RT# 78547 noexport_hack part_svc::sipwise
Diffstat (limited to 'FS/FS/part_export')
-rw-r--r-- | FS/FS/part_export/sipwise.pm | 18 |
1 files changed, 13 insertions, 5 deletions
diff --git a/FS/FS/part_export/sipwise.pm b/FS/FS/part_export/sipwise.pm index 9d4e336..287e604 100644 --- a/FS/FS/part_export/sipwise.pm +++ b/FS/FS/part_export/sipwise.pm @@ -14,6 +14,7 @@ use FS::Misc::DateTime qw(parse_datetime); use DateTime; use Number::Phone; use Try::Tiny; +use Carp qw(carp); our $me = '[sipwise]'; our $DEBUG = 0; @@ -67,7 +68,7 @@ our %info = ( END ); -sub export_insert { +sub _export_insert { my($self, $svc_x) = (shift, shift); local $SIG{__DIE__}; @@ -88,7 +89,7 @@ sub export_insert { ''; } -sub export_replace { +sub _export_replace { my ($self, $svc_new, $svc_old) = @_; local $SIG{__DIE__}; @@ -110,7 +111,7 @@ sub export_replace { ''; } -sub export_delete { +sub _export_delete { my ($self, $svc_x) = (shift, shift); local $SIG{__DIE__}; @@ -135,7 +136,7 @@ sub export_delete { # logic to set subscribers to locked/active is in replace_subscriber -sub export_suspend { +sub _export_suspend { my $self = shift; my $svc_x = shift; my $role = $self->svc_role($svc_x); @@ -148,7 +149,7 @@ sub export_suspend { ''; } -sub export_unsuspend { +sub _export_unsuspend { my $self = shift; my $svc_x = shift; my $role = $self->svc_role($svc_x); @@ -295,6 +296,13 @@ previously, and the one it's linked to now. sub export_did { my $self = shift; my ($new, $old) = @_; + + if ( $FS::svc_Common::noexport_hack ) { + carp 'export_did() suppressed by noexport_hack' + if $self->option('debug') || $DEBUG; + return; + } + if ( $old and $new->forward_svcnum ne $old->forward_svcnum ) { my $old_svc_acct = $self->acct_for_did($old); $self->replace_subscriber( $old_svc_acct ) if $old_svc_acct; |