@ISA = qw(FS::part_export);
$me = '[' . __PACKAGE__ . ']';
-$DEBUG = 1;
+$DEBUG = 0;
%info = (
'svc' => 'svc_broadband',
}
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)) {
$_child_export,
$_action,
@{$_child_export->{'args'}},
+ @_,
);
# Bail if there's an error queueing one of the exports.