From: ivan <ivan>
Date: Thu, 22 Jan 2004 00:21:31 +0000 (+0000)
Subject: fix cancel method
X-Git-Tag: freeside_1_4_2beta1~296
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=8822f0b43841081a2903f1e50126c0b560dad78f;p=freeside.git

fix cancel method
---

diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm
index 417937a24..986fef3a5 100644
--- a/FS/FS/cust_main.pm
+++ b/FS/FS/cust_main.pm
@@ -1000,7 +1000,7 @@ Always returns a list: an empty list on success or a list of errors.
 
 sub cancel {
   my $self = shift;
-  grep { $_->cancel(@_) } $self->ncancelled_pkgs;
+  grep { $_ } map { $_->cancel(@_) } $self->ncancelled_pkgs;
 }
 
 =item agent