<%
-# <!-- $Id: svc_acct.cgi,v 1.2 2001-08-15 10:04:53 ivan Exp $ -->
+# <!-- $Id: svc_acct.cgi,v 1.3 2001-08-19 15:53:35 jeff Exp $ -->
use strict;
use vars qw( $cgi @svc_acct $sortby $query );
<TR>
<TH><FONT SIZE=-1>Service #</FONT></TH>
<TH><FONT SIZE=-1>Username</FONT></TH>
+ <TH><FONT SIZE=-1>Domain</FONT></TH>
<TH><FONT SIZE=-1>UID</FONT></TH>
<TH><FONT SIZE=-1>Service</FONT></TH>
<TH><FONT SIZE=-1>Customer #</FONT></TH>
or die "No cust_svc record for svcnum ". $svc_acct->svcnum;
my $part_svc = qsearchs('part_svc', { 'svcpart' => $cust_svc->svcpart })
or die "No part_svc record for svcpart ". $cust_svc->svcpart;
+ my $svc_domain = qsearchs('svc_domain', { 'svcnum' => $svc_acct->domsvc })
+ or die "No svc_domain record for domsvc ". $cust_svc->domsvc;
my($cust_pkg,$cust_main);
if ( $cust_svc->pkgnum ) {
$cust_pkg = qsearchs('cust_pkg', { 'pkgnum' => $cust_svc->pkgnum })
$cust_main = qsearchs('cust_main', { 'custnum' => $cust_pkg->custnum })
or die "No cust_main record for custnum ". $cust_pkg->custnum;
}
- my($svcnum,$username,$uid,$svc,$custnum,$last,$first,$company)=(
+ my($svcnum,$username,$domain,$uid,$svc,$custnum,$last,$first,$company)=(
$svc_acct->svcnum,
$svc_acct->getfield('username'),
+ $svc_domain->getfield('domain'),
$svc_acct->getfield('uid'),
$part_svc->svc,
$cust_svc->pkgnum ? $cust_main->custnum : '',
<TR>
<TD><A HREF="${p}view/svc_acct.cgi?$svcnum"><FONT SIZE=-1>$svcnum</FONT></A></TD>
<TD><A HREF="${p}view/svc_acct.cgi?$svcnum"><FONT SIZE=-1>$username</FONT></A></TD>
+ <TD><FONT SIZE=-1>$domain</FONT></TD>
<TD><A HREF="${p}view/svc_acct.cgi?$svcnum"><FONT SIZE=-1>$uid</FONT></A></TD>
<TD><FONT SIZE=-1>$svc</FONT></TH>
<TD><FONT SIZE=-1>$pcustnum</FONT></TH>