--- doc/loncapafiles/updatequery.piml	2005/08/02 21:25:43	1.40
+++ doc/loncapafiles/updatequery.piml	2005/10/26 19:38:15	1.42
@@ -1,6 +1,6 @@
 <!-- updatequery.piml -->
 
-<!-- $Id: updatequery.piml,v 1.40 2005/08/02 21:25:43 albertel Exp $ -->
+<!-- $Id: updatequery.piml,v 1.42 2005/10/26 19:38:15 albertel Exp $ -->
 
 <!--
 
@@ -237,7 +237,8 @@ END
   my $choice=&lt;&gt;;
   chomp($choice);
   my $bad_domain_flag=0;
-  my @bad_domain_names=('res','raw','userfiles','priv','adm','uploaded');
+  my @bad_domain_names=('res','raw','userfiles','priv','adm','uploaded',
+	'editupload');
   foreach my $bad (@bad_domain_names) {
     $bad_domain_flag=1 if $choice eq $bad;
   }
@@ -597,12 +598,13 @@ foreach my $v ($perlvar{'lonDefDomain'},
 		 $error.="\nName $v contains 'capa'"; 
 	}
    }
-   foreach my $bad ('res','raw','userfiles','priv','adm','uploaded') {
+   foreach my $bad ('res','raw','userfiles','priv','adm','uploaded',
+	'editupload') {
       $error.="\nName $v reserved." if $v eq $bad;
    }
    if ($v=~/\W/) { $error.="\nName $v contains special characters"; }
 }
-if ($domainDescription!~/^[\w\s]+$/) {
+if ($domainDescription!~/^[\(\)\-\w\s,]+$/) {
    $error.="\nDomain Description contains special characters";
 } 
 foreach my $v ($perlvar{'lonExpire'},$perlvar{'lonLoadLim'}) {