X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fcust_event.pm;h=b29ab71bb5acd2a2fcbc8cd3e2d5fe0dc4671dc0;hb=b7c25d5e38e6459efe5d1c2f09f437b79798038e;hp=78d421770938578c7c22e03f41c91d7dcb989b68;hpb=77783e2521b98f0ca76ebe953873fbdc7cc51e98;p=freeside.git

diff --git a/FS/FS/cust_event.pm b/FS/FS/cust_event.pm
index 78d421770..b29ab71bb 100644
--- a/FS/FS/cust_event.pm
+++ b/FS/FS/cust_event.pm
@@ -73,7 +73,7 @@ points to.  You can ask the object for a copy with the I<hash> method.
 
 sub table { 'cust_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;