From: ivan <ivan>
Date: Fri, 19 Sep 2003 12:41:29 +0000 (+0000)
Subject: quiet option to cancel method
X-Git-Tag: freeside_1_4_2beta1~503
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=6c8e8078b3867abbcb049cd17b8a0abb90a38e29;p=freeside.git

quiet option to cancel method
---

diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm
index d1ea86319..ee417bf62 100644
--- a/FS/FS/cust_main.pm
+++ b/FS/FS/cust_main.pm
@@ -877,16 +877,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