projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Merge branch 'master' of git.freeside.biz:/home/git/freeside
[freeside.git]
/
FS
/
FS
/
part_event
/
Action
/
cust_bill_email.pm
diff --git
a/FS/FS/part_event/Action/cust_bill_email.pm
b/FS/FS/part_event/Action/cust_bill_email.pm
index
3331a4c
..
80bcaa1
100644
(file)
--- a/
FS/FS/part_event/Action/cust_bill_email.pm
+++ b/
FS/FS/part_event/Action/cust_bill_email.pm
@@
-20,12
+20,18
@@
sub option_fields {
sub default_weight { 51; }
sub do_action {
sub default_weight { 51; }
sub do_action {
- my( $self, $cust_bill ) = @_;
+ my( $self, $cust_bill
, $cust_event
) = @_;
my $cust_main = $cust_bill->cust_main;
$cust_bill->set('mode' => $self->option('modenum'));
my $cust_main = $cust_bill->cust_main;
$cust_bill->set('mode' => $self->option('modenum'));
- $cust_bill->email unless $cust_main->invoice_noemail;
+ if ( $cust_main->invoice_noemail ) {
+ # what about if the customer has no email dest?
+ $cust_event->set('no_action', 'Y');
+ return "customer has invoice_noemail flag";
+ } else {
+ $cust_bill->email;
+ }
}
1;
}
1;