doc/loncapafiles/updatequery.piml - diff

Return to updatequery.piml CVS log

Up to [LON-CAPA] / doc / loncapafiles

version 1.40, 2005/08/02 21:25:43	version 1.41, 2005/08/15 17:53:33
Line 237 END	Line 237 END
my $choice=<>;	my $choice=<>;
chomp($choice);	chomp($choice);
my $bad_domain_flag=0;	my $bad_domain_flag=0;
my @bad_domain_names=('res','raw','userfiles','priv','adm','uploaded');	my @bad_domain_names=('res','raw','userfiles','priv','adm','uploaded',
	'editupload');
foreach my $bad (@bad_domain_names) {	foreach my $bad (@bad_domain_names) {
$bad_domain_flag=1 if $choice eq $bad;	$bad_domain_flag=1 if $choice eq $bad;
}	}
Line 597 foreach my $v ($perlvar{'lonDefDomain'},	Line 598 foreach my $v ($perlvar{'lonDefDomain'},
$error.="\nName $v contains 'capa'";	$error.="\nName $v contains 'capa'";
}	}
}	}
foreach my $bad ('res','raw','userfiles','priv','adm','uploaded') {	foreach my $bad ('res','raw','userfiles','priv','adm','uploaded',
	'editupload') {
$error.="\nName $v reserved." if $v eq $bad;	$error.="\nName $v reserved." if $v eq $bad;
}	}
if ($v=~/\W/) { $error.="\nName $v contains special characters"; }	if ($v=~/\W/) { $error.="\nName $v contains special characters"; }
}	}
if ($domainDescription!~/^[\w\s]+$/) {	if ($domainDescription!~/^[\-\w\s]+$/) {
$error.="\nDomain Description contains special characters";	$error.="\nDomain Description contains special characters";
}	}
foreach my $v ($perlvar{'lonExpire'},$perlvar{'lonLoadLim'}) {	foreach my $v ($perlvar{'lonExpire'},$perlvar{'lonLoadLim'}) {