X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fcust_bill_event.pm;h=c91283b69ccedf840e8b56b66b0bae9eef9842b9;hb=429a48b18a54917b73b3add468d930f60bcdb2fe;hp=36afed04043eac3abc75fce6d52d12b996331d4e;hpb=40a7b3dc653e099f7bd0bd762b649b04c4432db2;p=freeside.git diff --git a/FS/FS/cust_bill_event.pm b/FS/FS/cust_bill_event.pm index 36afed040..c91283b69 100644 --- a/FS/FS/cust_bill_event.pm +++ b/FS/FS/cust_bill_event.pm @@ -83,7 +83,7 @@ points to. You can ask the object for a copy with the I method. sub table { 'cust_bill_event'; } -sub cust_linked { $_[0]->cust_main_custnum; } +sub cust_linked { $_[0]->cust_main_custnum || $_[0]->custnum } sub cust_unlinked_msg { my $self = shift; "WARNING: can't find cust_main.custnum ". $self->custnum.