From: Ivan Kohler <ivan@freeside.biz>
Date: Wed, 24 Apr 2019 21:49:21 +0000 (-0700)
Subject: fix northern-911 and other unsuspend operations when exports override export_replace... 
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=1a409e3604c5f2aeba195527227d56f167b715e8

fix northern-911 and other unsuspend operations when exports override export_replace, RT#83178
---

diff --git a/FS/FS/part_export.pm b/FS/FS/part_export.pm
index e43524d74..2622b7d4b 100644
--- a/FS/FS/part_export.pm
+++ b/FS/FS/part_export.pm
@@ -649,7 +649,7 @@ sub _export_suspend {
   #warn "warning: _export_suspened unimplemented for". ref($self);
   my $svc_x = shift;
   my $new = $svc_x->clone_suspended;
-  $self->_export_replace( $new, $svc_x );
+  $self->export_replace( $new, $svc_x );
 }
 
 sub _export_unsuspend {
@@ -657,7 +657,7 @@ sub _export_unsuspend {
   #warn "warning: _export_unsuspend unimplemented for ". ref($self);
   my $svc_x = shift;
   my $old = $svc_x->clone_kludge_unsuspend;
-  $self->_export_replace( $svc_x, $old );
+  $self->export_replace( $svc_x, $old );
 }
 
 =item get_remoteid SVC