add debugging to track down RADIUS group problem

[freeside.git] / httemplate / edit / svc_www.cgi

diff --git a/httemplate/edit/svc_www.cgi b/httemplate/edit/svc_www.cgi
index a9b1ed3..280346b 100644 (file)
--- a/httemplate/edit/svc_www.cgi
+++ b/httemplate/edit/svc_www.cgi
@@ -42,14 +42,7 @@ if ( $cgi->param('error') ) {
 
     $svcnum='';
 
-    #set fixed and default fields from part_svc
-    foreach my $part_svc_column (
-      grep { $_->columnflag } $part_svc->all_part_svc_column
-    ) {
-      $svc_www->setfield( $part_svc_column->columnname,
-                          $part_svc_column->columnvalue,
-                        );
-    }
+    $svc_www->set_default_and_fixed;
 
   }
 }
@@ -106,7 +99,7 @@ if ($pkgnum) {
 
         my $extra_sql = "AND ( rectype = 'A' OR rectype = 'CNAME' )";
         unless ( $conf->exists('svc_www-enable_subdomains') ) {
-          $extra_sql .= " AND ( reczone = '@' OR reczone = '".
+          $extra_sql .= " AND ( reczone = '\@' OR reczone = '".
                         $svc_domain->domain. ".' )";
         }
 
@@ -130,7 +123,7 @@ if ($pkgnum) {
                       } )
                    || qsearchs( 'domain_record', {
                                   svcnum  => $svc_domain->svcnum,
-                                  reczone => 'www.'.$svc-domain->domain.'.',
+                                  reczone => 'www.'.$svc_domain->domain.'.',
                     } );
         }
 
@@ -196,6 +189,7 @@ foreach $_ (keys %arec) {
 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{$_}!;