Updated view/svc_www.cgi

Stephen Bechard steve at destek.net
Tue Jun 25 15:55:46 PDT 2002


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>'





More information about the freeside-devel mailing list