diff options
| author | Mitch Jackson <mitch@freeside.biz> | 2018-10-28 15:28:37 -0400 |
|---|---|---|
| committer | Mitch Jackson <mitch@freeside.biz> | 2018-10-28 15:28:37 -0400 |
| commit | e63d638c6b7b2c9adedb43e0bd9afe4260714837 (patch) | |
| tree | 82767c79e11de623f4d739abdda0e882f3ca0c43 | |
| parent | 86eb93c5a82f7c7613e33eefe20aae1bad6bcb69 (diff) | |
RT# 73422 Contact report - fix customer link
| -rw-r--r-- | httemplate/search/contact.html | 15 |
1 files changed, 9 insertions, 6 deletions
diff --git a/httemplate/search/contact.html b/httemplate/search/contact.html index 50935baf4..4b3fe8399 100644 --- a/httemplate/search/contact.html +++ b/httemplate/search/contact.html @@ -195,12 +195,15 @@ my @report = ( $rec->cust_contact_message_dest ? 'Y' : 'N'; }}, { label => 'Customer', - link => sub { - my $rec = shift; - $rec->cust_main_custnum - ? ["${p}view/cust_main.cgi?", 'cust_main_custnum' ] - : ["${p}view/prospect_main.html?", 'prospect_main_prospectnum' ]; - }, + link => [ + "${fsurl}view/", + sub { + my $row = shift; + $row->cust_contact_custnum + ? 'cust_main.cgi?'.$row->cust_contact_custnum + : 'prospect_main.html?'.$row->prospect_contact_prospectnum + } + ], field => sub { my $rec = shift; if ($rec->prospect_contact_prospectnum) { |