--- doc/loncapafiles/updatequery.piml	2007/04/03 22:13:40	1.52
+++ doc/loncapafiles/updatequery.piml	2007/04/20 18:08:57	1.53
@@ -1,6 +1,6 @@
 <!-- updatequery.piml -->
 
-<!-- $Id: updatequery.piml,v 1.52 2007/04/03 22:13:40 albertel Exp $ -->
+<!-- $Id: updatequery.piml,v 1.53 2007/04/20 18:08:57 albertel Exp $ -->
 
 <!--
 
@@ -721,8 +721,10 @@ foreach my $v ($perlvar{'lonDefDomain'},
    }
    if ($v=~/[^\w\-.]/) { $error.="\nName $v contains special characters"; }
 }
-if ($domainDescription!~/^[\(\)\-\w\s,]+$/) {
-   $error.="\nDomain Description contains special characters";
+if ($domainDescription =~ /^\s*$/) {
+   $error.="\nDomain Description is blank.";
+} elsif ($domainDescription!~/^[\(\)\-\w\s,]+$/) {
+   $error.="\nDomain Description contains special characters.";
 } 
 foreach my $v ($perlvar{'lonExpire'},$perlvar{'lonLoadLim'}) {
    unless ($v=~/^[\d+\.]+$/) { $error.="\nNumber expected instead of $v"; }