diff options
Diffstat (limited to 'httemplate/misc/whois.cgi')
| -rw-r--r-- | httemplate/misc/whois.cgi | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/httemplate/misc/whois.cgi b/httemplate/misc/whois.cgi index 35d0eccc9..533b2d7a8 100644 --- a/httemplate/misc/whois.cgi +++ b/httemplate/misc/whois.cgi @@ -1,6 +1,6 @@ <% include("/elements/header.html","Whois $domain", menubar( ( $custnum - ? ( "View this customer (#$custnum)" => "${p}view/cust_main.cgi?$custnum", + ? ( "View this customer (#$display_custnum)" => "${p}view/cust_main.cgi?$custnum", ) : () ), @@ -17,6 +17,12 @@ my $svcnum = $cgi->param('svcnum'); my $custnum = $cgi->param('custnum'); my $domain = $cgi->param('domain'); +my $display_custnum; +if ( $custnum ) { + my $cust_main = qsearchs('cust_main', { 'custnum' => $custnum } ); + $display_custnum = $cust_main->display_custnum; +} + my $whois = eval { whois($domain) }; if ( $@ ) { ( $whois = $@ ) =~ s/ at \/.*Net\/Whois\/Raw\.pm line \d+.*$//s; |