diff options
| author | Ivan Kohler <ivan@freeside.biz> | 2016-08-18 14:01:58 -0700 |
|---|---|---|
| committer | Ivan Kohler <ivan@freeside.biz> | 2016-08-18 14:01:58 -0700 |
| commit | e0b6fe25cca1e2ff566cc0765f6c9fa24ed66ba8 (patch) | |
| tree | 78e87120b5158c219550ba39c2c505145d07c459 | |
| parent | 7e9422a954e8249627c256b53080ee6afeeed913 (diff) | |
Fix Contact selection on prospect, from Fernando-Kiernan, github#54
| -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 947299693..67e91cf99 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; } |