projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
66006d4
)
RT# 78547 noexport_hack part_export::ikano
author
Mitch Jackson
<mitch@mitchjacksontech.com>
Tue, 14 Aug 2018 23:37:07 +0000
(19:37 -0400)
committer
Mitch Jackson
<mitch@freeside.biz>
Wed, 15 Aug 2018 00:26:39 +0000
(20:26 -0400)
FS/FS/part_export/ikano.pm
patch
|
blob
|
history
diff --git
a/FS/FS/part_export/ikano.pm
b/FS/FS/part_export/ikano.pm
index
23917bf
..
68b1a9f
100644
(file)
--- 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 FS::part_export;
use FS::svc_dsl;
use Data::Dumper;
+use Carp qw(carp);
@ISA = qw(FS::part_export);
$me= '[' . __PACKAGE__ . ']';
@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);
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');
return 'Invalid operation - Import Mode is enabled' if $self->import_mode;
my $result = $self->valid_order($svc_dsl,'expire');