use FS::part_export;
use FS::svc_dsl;
use Data::Dumper;
+use Carp qw(carp);
@ISA = qw(FS::part_export);
$me= '[' . __PACKAGE__ . ']';
'svc' => 'svc_dsl',
'desc' => 'Provision DSL to Ikano',
'options' => \%options,
+ 'no_machine' => 1,
'notes' => <<'END'
Requires installation of
<a href="http://search.cpan.org/dist/Net-Ikano">Net::Ikano</a> from CPAN.
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');