doc/loncapafiles/updatequery.piml - diff

Return to updatequery.piml CVS log

Up to [LON-CAPA] / doc / loncapafiles

version 1.38, 2005/05/21 15:35:07	version 1.39, 2005/07/01 18:21:47
Line 591 my $error='';	Line 591 my $error='';
foreach my $v ($perlvar{'lonDefDomain'},$perlvar{'lonHostID'}) {	foreach my $v ($perlvar{'lonDefDomain'},$perlvar{'lonHostID'}) {
if (length($v)>16) { $error.="\nName $v too long"; }	if (length($v)>16) { $error.="\nName $v too long"; }
if (length($v)<2) { $error.="\nName $v too short"; }	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') {	foreach my $bad ('res','raw','userfiles','priv','adm','uploaded') {
$error.="\nName $v reserved." if $v eq $bad;	$error.="\nName $v reserved." if $v eq $bad;
}	}