X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fpart_export%2Fnas_wrapper.pm;fp=FS%2FFS%2Fpart_export%2Fnas_wrapper.pm;h=2499ba3eedf58bed0dead7e31d73326f14372a98;hb=3f965d65535b31bcb2a2b37cc625ad46d82c81a9;hp=fee9f48fe967919e1c6f5439b642e9b849a3a8e9;hpb=3944b4589214f68e1b4fa2fecf13d7b5c34242f6;p=freeside.git

diff --git a/FS/FS/part_export/nas_wrapper.pm b/FS/FS/part_export/nas_wrapper.pm
index fee9f48fe..2499ba3ee 100644
--- a/FS/FS/part_export/nas_wrapper.pm
+++ b/FS/FS/part_export/nas_wrapper.pm
@@ -45,7 +45,7 @@ use Data::Dumper qw(Dumper);
 
 @ISA = qw(FS::part_export);
 $me = '[' . __PACKAGE__ . ']';
-$DEBUG = 1;
+$DEBUG = 0;
 
 %info = (
   'svc'     => 'svc_broadband',
@@ -189,7 +189,7 @@ sub _export_command {
   }
 
   warn "[debug]$me Dispatching child exports... "
-    . &Dumper($queue_child_exports);
+    . &Dumper($queue_child_exports) if $DEBUG;
 
   # Actually call the child exports now, with their preset action and arguments.
   foreach my $_action (keys(%$queue_child_exports)) {
@@ -199,6 +199,7 @@ sub _export_command {
         $_child_export,
         $_action,
         @{$_child_export->{'args'}},
+        @_,
       );
 
       # Bail if there's an error queueing one of the exports.