From: ivan <ivan>
Date: Fri, 19 Sep 2003 12:40:59 +0000 (+0000)
Subject: quiet option to cancel method
X-Git-Tag: NET_WHOIS_RAW_0_31~395
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=516dd846062f114ef7b77d08d530cf7327423049;ds=sidebyside

quiet option to cancel method
---

diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm
index e4d440600..700b100fb 100644
--- a/FS/FS/cust_main.pm
+++ b/FS/FS/cust_main.pm
@@ -958,16 +958,21 @@ sub suspend {
   grep { $_->suspend } $self->unsuspended_pkgs;
 }
 
-=item cancel
+=item cancel [ OPTION => VALUE ... ]
 
 Cancels all uncancelled packages (see L<FS::cust_pkg>) for this customer.
+
+Available options are: I<quiet>
+
+I<quiet> can be set true to supress email cancellation notices.
+
 Always returns a list: an empty list on success or a list of errors.
 
 =cut
 
 sub cancel {
   my $self = shift;
-  grep { $_->cancel } $self->ncancelled_pkgs;
+  grep { $_->cancel(@_) } $self->ncancelled_pkgs;
 }
 
 =item agent