From: khoff <khoff>
Date: Thu, 5 Apr 2007 23:59:06 +0000 (+0000)
Subject: Backporting FS::part_export::(nas_wrapper|snmp|trango) to FREESIDE_1_7_BRANCH
X-Git-Tag: freeside_1_7_3rc1~494
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=94e2fd1a6daec7394f99108edc69ba0267bff565;p=freeside.git

Backporting FS::part_export::(nas_wrapper|snmp|trango) to FREESIDE_1_7_BRANCH
---

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.