[freeside-devel] Updated view/svc_www.cgi

[ivan]

Well, that's not quite right - usernames aren't very unique 1.4.  I added
the full username at domain :)

On Tue, Jun 25, 2002 at 06:53:54PM -0400, Stephen Bechard wrote:
> 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>'
> 
> 

-- 
_ivan