--- doc/loncapafiles/updatequery.piml	2005/05/21 15:35:07	1.38
+++ doc/loncapafiles/updatequery.piml	2005/07/01 18:21:47	1.39
@@ -1,6 +1,6 @@
 <!-- updatequery.piml -->
 
-<!-- $Id: updatequery.piml,v 1.38 2005/05/21 15:35:07 www Exp $ -->
+<!-- $Id: updatequery.piml,v 1.39 2005/07/01 18:21:47 albertel Exp $ -->
 
 <!--
 
@@ -591,7 +591,12 @@ my $error='';
 foreach my $v ($perlvar{'lonDefDomain'},$perlvar{'lonHostID'}) {
    if (length($v)>16) { $error.="\nName $v too long"; }		
    if (length($v)<2) { $error.="\nName $v too short"; }
-   if ($v=~/capa/i) { $error.="\nName $v contains 'capa'"; }
+   if ($v=~/capa/i) {
+	if ($v!~/^oucapa\d+$/ && 
+	    ($v!~/^capa\d+$/ && $perlvar{'lonDefDomain'} eq 'uwsp')) {
+		 $error.="\nName $v contains 'capa'"; 
+	}
+   }
    foreach my $bad ('res','raw','userfiles','priv','adm','uploaded') {
       $error.="\nName $v reserved." if $v eq $bad;
    }