diff options
| author | Mitch Jackson <mitch@mitchjacksontech.com> | 2018-08-14 19:37:07 -0400 |
|---|---|---|
| committer | Mitch Jackson <mitch@freeside.biz> | 2018-09-19 00:41:50 -0400 |
| commit | e2c2e1c179265ee06b78b4fd3d3aa058a09270db (patch) | |
| tree | 4e512acd258756abbadfa6ab0eb33531496c2179 /FS/FS/part_export | |
| parent | c6ac0d4705ef01f2cca9340c7089bae1908cae27 (diff) | |
RT# 78547 noexport_hack part_export::ikano
Diffstat (limited to 'FS/FS/part_export')
| -rw-r--r-- | FS/FS/part_export/ikano.pm | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/FS/FS/part_export/ikano.pm b/FS/FS/part_export/ikano.pm index 23917bf..68b1a9f 100644 --- a/FS/FS/part_export/ikano.pm +++ b/FS/FS/part_export/ikano.pm @@ -10,6 +10,7 @@ use FS::Record qw(qsearch qsearchs dbh); use FS::part_export; use FS::svc_dsl; use Data::Dumper; +use Carp qw(carp); @ISA = qw(FS::part_export); $me= '[' . __PACKAGE__ . ']'; @@ -678,7 +679,13 @@ sub _export_delete { sub export_expire { my($self, $svc_dsl, $date) = (shift, shift, shift); - + + if ( $FS::svc_Common::noexport_hack ) { + carp 'export_expire() suppressed by noexport_hack' + if $self->option('debug'); + return; + } + return 'Invalid operation - Import Mode is enabled' if $self->import_mode; my $result = $self->valid_order($svc_dsl,'expire'); |