--- doc/loncapafiles/updatequery.piml	2005/08/15 17:53:33	1.41
+++ doc/loncapafiles/updatequery.piml	2005/10/26 19:38:15	1.42
@@ -1,6 +1,6 @@
 <!-- updatequery.piml -->
 
-<!-- $Id: updatequery.piml,v 1.41 2005/08/15 17:53:33 albertel Exp $ -->
+<!-- $Id: updatequery.piml,v 1.42 2005/10/26 19:38:15 albertel Exp $ -->
 
 <!--
 
@@ -604,7 +604,7 @@ foreach my $v ($perlvar{'lonDefDomain'},
    }
    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'}) {