[freeside-devel] Updated view/svc_www.cgi

[ivan]

oops meant to say "usernames aren't very unique in 1.4"... 

On Tue, Jun 25, 2002 at 04:28:14PM -0700, ivan wrote:
> 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

-- 
_ivan