projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Merge branch 'master' of git.freeside.biz:/home/git/freeside
[freeside.git]
/
httemplate
/
misc
/
whois.cgi
diff --git
a/httemplate/misc/whois.cgi
b/httemplate/misc/whois.cgi
index
35d0ecc
..
533b2d7
100644
(file)
--- a/
httemplate/misc/whois.cgi
+++ b/
httemplate/misc/whois.cgi
@@
-1,6
+1,6
@@
<% include("/elements/header.html","Whois $domain", menubar(
( $custnum
<% 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 $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;
my $whois = eval { whois($domain) };
if ( $@ ) {
( $whois = $@ ) =~ s/ at \/.*Net\/Whois\/Raw\.pm line \d+.*$//s;