Updated view/svc_www.cgi

[Stephen Bechard]

Ivan,
I like the updated version of view/svc_www.cgi,
however, I think it might be helpful if it showed
which username was linked to the website, as well.
This way we would know whether or not it needed
to be edited.

Enjoy,
Steve

Here is what I did:

--- /freeside-cvs/httemplate/view/svc_www.cgi Mon Jun 24 21:12:27 2002
+++ /home/freeside/website/aspdocs/view/svc_www.cgi     Tue Jun 25 18:48:32
2002
@@ -20,6 +20,10 @@
 }
 #eofalse

+my $svc_acct = qsearchs('svc_acct', { 'svcnum' => $svc_www->usersvc } )
+  or die "svc_acct: Unknown svcnum". $svc_www->usersvc;
+my $username = $svc_acct->username;
+
 my $domain_record = qsearchs('domain_record', { 'recnum' =>
$svc_www->recnum } )
   or die "svc_www: Unknown recnum". $svc_www->recnum;

@@ -45,6 +49,8 @@
         qq!<TD BGCOLOR="#ffffff">$svcnum</TD></TR>!.
       qq!<TR><TD ALIGN="right">Website name</TD>!.
         qq!<TD BGCOLOR="#ffffff"><A HREF="http://$www">$www<A></TD></TR>!.
+      qq!<TR><TD ALIGN="right">Username</TD>!.
+        qq!<TD BGCOLOR="#ffffff">$username</TD></TR>!.
       '</TABLE></TD></TR></TABLE>'.
       '<BR>'. joblisting({'svcnum'=>$svcnum}, 1).
       '</BODY></HTML>'