diff options
author | Ivan Kohler <ivan@freeside.biz> | 2016-08-18 14:02:00 -0700 |
---|---|---|
committer | Ivan Kohler <ivan@freeside.biz> | 2016-08-18 14:02:00 -0700 |
commit | df2d61c5308891cc5d4fe7df9cdaef623a16fce3 (patch) | |
tree | dcd649b9cf2292c894b2952cf9c5b65a7cf1ae97 /FS/FS/prospect_main.pm | |
parent | dfedd920db6c72b1aebc198af9d11387f416aa7b (diff) |
Fix Contact selection on prospect, from Fernando-Kiernan, github#54
Diffstat (limited to 'FS/FS/prospect_main.pm')
-rw-r--r-- | FS/FS/prospect_main.pm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/FS/FS/prospect_main.pm b/FS/FS/prospect_main.pm index 9472996..67e91cf 100644 --- a/FS/FS/prospect_main.pm +++ b/FS/FS/prospect_main.pm @@ -270,8 +270,11 @@ sub name { my $self = shift; return $self->company if $self->company; - my $contact = ($self->prospect_contact)[0]->contact; #first contact? good enough for now - return $contact->line if $contact; + my $prospect_contact = ($self->prospect_contact)[0]; #first contact? good enough for now + my $contact = $prospect_contact->contact if $prospect_contact; + return $contact->line if $prospect_contact && $contact; + + #address? 'Prospect #'. $self->prospectnum; } |