<%
-<!-- $Id: svc_acct.cgi,v 1.3 2001-08-20 12:13:09 ivan Exp $ -->
+#<!-- $Id: svc_acct.cgi,v 1.6 2001-09-04 14:44:06 ivan Exp $ -->
use strict;
use vars qw( $conf $cgi @shells $action $svcnum $svc_acct $pkgnum $svcpart
#domain
$domsvc = $svc_acct->domsvc || 0;
-if ( $part_svc->svc_acct__domsvc_flag eq "F" ) {
+if ( $part_svc->svc_acct__domsvc_flag eq 'F' ) {
print qq!<INPUT TYPE="hidden" NAME="domsvc" VALUE="$domsvc">!;
} else {
my @svc_domain = ();
+ if ( $part_svc->svc_acct__domsvc_flag eq 'D' ) {
+ my $svc_domain =
+ qsearchs('svc_domain', { 'svcnum' => $part_svc->svc_acct__domsvc } );
+ if ( $svc_domain ) {
+ push @svc_domain, $svc_domain;
+ } else {
+ warn "unknown svc_domain.svcnum for part_svc.svc_acct__domsvc: ".
+ $part_svc->svc_acct__domsvc;
+ }
+ }
my $cust_pkg = qsearchs('cust_pkg', { 'pkgnum' => $pkgnum } );
if ($cust_pkg) {
my @cust_svc =
map { qsearch('cust_svc', { 'pkgnum' => $_->pkgnum } ) }
qsearch('cust_pkg', { 'custnum' => $cust_pkg->custnum } );
foreach my $cust_svc ( @cust_svc ) {
- $svc_domain = qsearchs('svc_domain', { 'svcnum' => $_->svcnum } );
+ my $svc_domain =
+ qsearchs('svc_domain', { 'svcnum' => $cust_svc->svcnum } );
push @svc_domain, $svc_domain if $svc_domain;
}
} else {