From: ivan <ivan>
Date: Thu, 25 Sep 2003 10:26:33 +0000 (+0000)
Subject: quiet self-service server cancels
X-Git-Tag: freeside_1_4_2beta1~488
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=c2d83e89029d0c50eae17612805fc4e0698039be;p=freeside.git

quiet self-service server cancels
---

diff --git a/FS/FS/ClientAPI/MyAccount.pm b/FS/FS/ClientAPI/MyAccount.pm
index 9983b5d26..fda4bc28f 100644
--- a/FS/FS/ClientAPI/MyAccount.pm
+++ b/FS/FS/ClientAPI/MyAccount.pm
@@ -144,7 +144,7 @@ sub cancel {
   my $cust_main = qsearchs('cust_main', { 'custnum' => $custnum } )
     or return { 'error' => "unknown custnum $custnum" };
 
-  my @errors = $cust_main->cancel;
+  my @errors = $cust_main->cancel( 'quiet'=>1 );
 
   my $error = scalar(@errors) ? join(' / ', @errors) : '';