From ff873782e78715891b9d5d2eb5b38c735d372556 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Wed, 3 Dec 2008 21:15:39 +0000
Subject: fix real customer numbers showing on view pages, RT#4099/4379

---
 httemplate/misc/whois.cgi | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

(limited to 'httemplate/misc/whois.cgi')

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;
-- 
cgit v1.2.1