qsearchs( 'svc_domain', { 'svcnum' => $i_cust_svc->svcnum } );
my $extra_sql = "AND ( rectype = 'A' OR rectype = 'CNAME' )";
- if ( $conf->exists('svc_www-enable_subdomains') ) {
- $extra_sql .= " AND ( reczone = '@' OR reczone = '".
+ unless ( $conf->exists('svc_www-enable_subdomains') ) {
+ $extra_sql .= " AND ( reczone = '\@' OR reczone = '".
$svc_domain->domain. ".' )";
}
} )
|| qsearchs( 'domain_record', {
svcnum => $svc_domain->svcnum,
- reczone => 'www.'.$svc-domain->domain.'.',
+ reczone => 'www.'.$svc_domain->domain.'.',
} );
}
print "</SELECT></TD></TR>";
print '<TR><TD ALIGN="right">Username</TD><TD><SELECT NAME="usersvc" SIZE=1>';
+print '<OPTION VALUE="">(none)';
foreach $_ (keys %svc_acct) {
print "<OPTION", ($_ eq $usersvc) ? " SELECTED" : "",
qq! VALUE="$_">$svc_acct{$_}!;