From cf2fc14c810b05159f4eff19f54b85b13709f812 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Sat, 29 Mar 2003 04:52:35 +0000
Subject: correct web UI for svc_www services & no more @.domain in
 www_shellcommands export

---
 httemplate/view/svc_www.cgi | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

(limited to 'httemplate')

diff --git a/httemplate/view/svc_www.cgi b/httemplate/view/svc_www.cgi
index 9fa9661b1..442614491 100644
--- a/httemplate/view/svc_www.cgi
+++ b/httemplate/view/svc_www.cgi
@@ -28,11 +28,7 @@ my $email = $svc_acct->email;
 my $domain_record = qsearchs('domain_record', { 'recnum' => $svc_www->recnum } )
   or die "svc_www: Unknown recnum ". $svc_www->recnum;
 
-my $www = $domain_record->reczone;
-unless ( $www =~ /\.$/ ) {
-  my $svc_domain = qsearchs('svc_domain', { svcnum=>$domain_record->svcnum } );
-  $www .= '.'. $svc_domain->domain;
-}
+my $www = $domain_record->zone;
 
 print header('Website View', menubar(
   ( ( $custnum )
-- 
cgit v1.2.1