[freeside-commits] freeside/FS/FS/ClientAPI MyAccount.pm, 1.133.2.44, 1.133.2.45

[Ivan,,,]

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

Modified Files:
      Tag: FREESIDE_2_3_BRANCH
	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.133.2.44
retrieving revision 1.133.2.45
diff -u -w -d -r1.133.2.44 -r1.133.2.45
--- MyAccount.pm	9 Feb 2012 08:38:27 -0000	1.133.2.44
+++ MyAccount.pm	9 Feb 2012 10:27:39 -0000	1.133.2.45
@@ -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;