[freeside-commits] freeside/FS/FS XMLRPC.pm,1.4,1.4.4.1

Kristian Hoffmann,420,, khoff at wavetail.420.am
Fri May 11 11:08:27 PDT 2007


Update of /home/cvs/cvsroot/freeside/FS/FS
In directory wavetail:/tmp/cvs-serv22522

Modified Files:
      Tag: FREESIDE_1_7_BRANCH
	XMLRPC.pm 
Log Message:
Quiet debug output.


Index: XMLRPC.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/XMLRPC.pm,v
retrieving revision 1.4
retrieving revision 1.4.4.1
diff -u -d -r1.4 -r1.4.4.1
--- XMLRPC.pm	10 Mar 2005 22:49:43 -0000	1.4
+++ XMLRPC.pm	11 May 2007 18:08:25 -0000	1.4.4.1
@@ -11,9 +11,11 @@
 use FS::Record;
 use FS::cust_main;
 
+use Data::Dumper;
+
 @ISA = qw( );
 
-$DEBUG = 1;
+$DEBUG = 0;
 
 =head1 NAME
 
@@ -84,7 +86,6 @@
 
   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 @@
 
     }
 
-    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 " .



More information about the freeside-commits mailing list