diff options
author | Mitch Jackson <mitch@freeside.biz> | 2018-09-11 03:23:52 -0400 |
---|---|---|
committer | Mitch Jackson <mitch@freeside.biz> | 2018-09-19 12:02:19 -0400 |
commit | 94f0030bae0ce3e493b99860901158e30e9651fd (patch) | |
tree | ae3576bdc3073d825a424030275f7ca1918675bd /FS/FS/part_export | |
parent | b9bb2b3bc596c18245199cd799c5f50d3e02ea59 (diff) |
RT# 78547 Allow for simulated billing within a transaction
Diffstat (limited to 'FS/FS/part_export')
-rw-r--r-- | FS/FS/part_export/nena2.pm | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/FS/FS/part_export/nena2.pm b/FS/FS/part_export/nena2.pm index f6a730e..cc4069c 100644 --- a/FS/FS/part_export/nena2.pm +++ b/FS/FS/part_export/nena2.pm @@ -10,6 +10,7 @@ use Date::Format qw(time2str); use Parse::FixedLength; use File::Temp qw(tempfile); use vars qw(%info %options $initial_load_hack $DEBUG); +use Carp qw( carp ); my %upload_targets; @@ -396,6 +397,13 @@ sub process { my $self = shift; my $batch = shift; local $DEBUG = $self->option('debug'); + + if ( $FS::svc_Common::noexport_hack ) { + carp 'FS::part_export::nena2::process() suppressed by noexport_hack' + if $DEBUG; + return; + } + local $FS::UID::AutoCommit = 0; my $error; |