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:30:29 -0400 |
| commit | 91367084a4d14bfc639d2675d20056377613ee4b (patch) | |
| tree | 8fbe403d559c4883d1f6b15e2bf7e4f0a4ed6eba | |
| parent | 7bdef72932450207f1dc3262460358a948a3c3dc (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) { |