[freeside-commits] freeside/FS/FS/ClientAPI MyAccount.pm, 1.177, 1.178

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/FS/FS/ClientAPI
In directory wavetail.420.am:/tmp/cvs-serv27325/FS/FS/ClientAPI

Modified Files:
	MyAccount.pm 
Log Message:
spam settings, RT#15987

Index: MyAccount.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/ClientAPI/MyAccount.pm,v
retrieving revision 1.177
retrieving revision 1.178
diff -u -w -d -r1.177 -r1.178
--- MyAccount.pm	9 Feb 2012 08:38:24 -0000	1.177
+++ MyAccount.pm	9 Feb 2012 10:27:37 -0000	1.178
@@ -1568,6 +1568,8 @@
   my $svc_x = _customer_svc_x( $custnum, $p->{'svcnum'}, 'svc_acct')
     or return { 'error' => "Service not found" };
 
+  warn "set_svc_status_hash ". join(' / ', map "$_=>".$p->{$_}, keys %$p )
+    if $DEBUG;
   my $error = $svc_x->export_setstatus($p); #$p? returns error?
   return { 'error' => $error } if $error;