From: khoff <khoff>
Date: Fri, 11 May 2007 18:08:10 +0000 (+0000)
Subject: Quiet debug output.
X-Git-Tag: TRIXBOX_2_6~515
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=3ba9b4989e804094be2a1d3051d94a25d85f6372

Quiet debug output.
---

diff --git a/FS/FS/XMLRPC.pm b/FS/FS/XMLRPC.pm
index 84f3e4141..fb0e5ac74 100644
--- a/FS/FS/XMLRPC.pm
+++ b/FS/FS/XMLRPC.pm
@@ -11,9 +11,11 @@ use FS::Conf;
 use FS::Record;
 use FS::cust_main;
 
+use Data::Dumper;
+
 @ISA = qw( );
 
-$DEBUG = 1;
+$DEBUG = 0;
 
 =head1 NAME
 
@@ -84,7 +86,6 @@ sub _serve { #Subroutine, not method
 
   my ($method_name, $params) = (shift, shift);
 
-  use Data::Dumper;
 
   #die 'Called _serve without parameters' unless ref($params) eq 'ARRAY';
   $params = [] unless (ref($params) eq 'ARRAY');
@@ -130,7 +131,7 @@ sub _serve { #Subroutine, not method
 
     }
 
-    warn Dumper(@result);
+    warn Dumper(@result) if $DEBUG;
 
     if (grep { UNIVERSAL::can($_, 'hashref') ? 0 : 1 } @result) {
       #warn "FS::XMLRPC: One or more objects returned from '${fssub}' doesn't " .