projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
RT# 83204 - added link to service or tower causing error.
[freeside.git]
/
FS
/
FS
/
part_export
/
phone_shellcommands.pm
diff --git
a/FS/FS/part_export/phone_shellcommands.pm
b/FS/FS/part_export/phone_shellcommands.pm
index
71445bf
..
3f01de3
100644
(file)
--- a/
FS/FS/part_export/phone_shellcommands.pm
+++ b/
FS/FS/part_export/phone_shellcommands.pm
@@
-5,6
+5,7
@@
use vars qw(@ISA %info);
use Tie::IxHash;
use String::ShellQuote;
use FS::part_export;
use Tie::IxHash;
use String::ShellQuote;
use FS::part_export;
+use Carp qw(carp);
@ISA = qw(FS::part_export);
@ISA = qw(FS::part_export);
@@
-103,6
+104,12
@@
sub _export_command {
my $command = $self->option($action);
return '' if $command =~ /^\s*$/;
my $command = $self->option($action);
return '' if $command =~ /^\s*$/;
+ if ( $FS::svc_Common::noexport_hack ) {
+ carp "_export_command($action) suppressed by noexport_hack"
+ if $self->option('debug');
+ return;
+ }
+
#set variable for the command
no strict 'vars';
{
#set variable for the command
no strict 'vars';
{