[LON-CAPA-cvs] cvs: doc /loncapafiles updatequery.piml

[albertel]

albertel		Fri Apr 20 14:08:57 2007 EDT

  Modified files:              
    /doc/loncapafiles	updatequery.piml 
  Log:
  - wrong error given on blank domain sdescription
  
  
Index: doc/loncapafiles/updatequery.piml
diff -u doc/loncapafiles/updatequery.piml:1.52 doc/loncapafiles/updatequery.piml:1.53
--- doc/loncapafiles/updatequery.piml:1.52	Tue Apr  3 18:13:40 2007
+++ doc/loncapafiles/updatequery.piml	Fri Apr 20 14:08:57 2007
@@ -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 @@
    }
    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"; }