X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fcust_bill.pm;h=4424797c124639f424e6eff96b5de6fdff903582;hb=c01186e8877f8985e652af77ce88e18bd516fa91;hp=c1724afe6478ac41ef3d357061d3d62e54615284;hpb=d190275909c4bbcd6f69c6163800765760d27503;p=freeside.git

diff --git a/FS/FS/cust_bill.pm b/FS/FS/cust_bill.pm
index c1724afe6..4424797c1 100644
--- a/FS/FS/cust_bill.pm
+++ b/FS/FS/cust_bill.pm
@@ -836,7 +836,7 @@ sub spool_csv {
   my($self, %opt) = @_;
 
   if ( $opt{'dest'} ) {
-    my %invoicing_list = map { /^(POST|FAX)$/ or $1 = 'EMAIL'; $1 => 1 }
+    my %invoicing_list = map { /^(POST|FAX)$/ or 'EMAIL' =~ /^(.*)$/; $1 => 1 }
                              $self->cust_main->invoicing_list;
     return unless $invoicing_list{$opt{'dest'}};
   }