projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
added user interface for svc_forward and vpopmail support
[freeside.git]
/
httemplate
/
search
/
svc_acct.cgi
diff --git
a/httemplate/search/svc_acct.cgi
b/httemplate/search/svc_acct.cgi
index
bd89d76
..
dba5ac3
100755
(executable)
--- a/
httemplate/search/svc_acct.cgi
+++ b/
httemplate/search/svc_acct.cgi
@@
-1,5
+1,5
@@
<%
<%
-# <!-- $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 );
use strict;
use vars qw( $cgi @svc_acct $sortby $query );
@@
-64,6
+64,7
@@
if ( scalar(@svc_acct) == 1 ) {
<TR>
<TH><FONT SIZE=-1>Service #</FONT></TH>
<TH><FONT SIZE=-1>Username</FONT></TH>
<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>
<TH><FONT SIZE=-1>UID</FONT></TH>
<TH><FONT SIZE=-1>Service</FONT></TH>
<TH><FONT SIZE=-1>Customer #</FONT></TH>
@@
-81,6
+82,8
@@
END
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;
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 })
my($cust_pkg,$cust_main);
if ( $cust_svc->pkgnum ) {
$cust_pkg = qsearchs('cust_pkg', { 'pkgnum' => $cust_svc->pkgnum })
@@
-88,9
+91,10
@@
END
$cust_main = qsearchs('cust_main', { 'custnum' => $cust_pkg->custnum })
or die "No cust_main record for custnum ". $cust_pkg->custnum;
}
$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_acct->svcnum,
$svc_acct->getfield('username'),
+ $svc_domain->getfield('domain'),
$svc_acct->getfield('uid'),
$part_svc->svc,
$cust_svc->pkgnum ? $cust_main->custnum : '',
$svc_acct->getfield('uid'),
$part_svc->svc,
$cust_svc->pkgnum ? $cust_main->custnum : '',
@@
-108,6
+112,7
@@
END
<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>
<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>
<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>