doc/loncapafiles/updatequery.piml - diff

Return to updatequery.piml CVS log

Up to [LON-CAPA] / doc / loncapafiles

version 1.52, 2007/04/03 22:13:40	version 1.53, 2007/04/20 18:08:57
Line 721 foreach my $v ($perlvar{'lonDefDomain'},	Line 721 foreach my $v ($perlvar{'lonDefDomain'},
}	}
if ($v=~/[^\w\-.]/) { $error.="\nName $v contains special characters"; }	if ($v=~/[^\w\-.]/) { $error.="\nName $v contains special characters"; }
}	}
if ($domainDescription!~/^[\-\w\s,]+$/) {	if ($domainDescription =~ /^\s*$/) {
$error.="\nDomain Description contains special characters";	$error.="\nDomain Description is blank.";
	} elsif ($domainDescription!~/^[\-\w\s,]+$/) {
	$error.="\nDomain Description contains special characters.";
}	}
foreach my $v ($perlvar{'lonExpire'},$perlvar{'lonLoadLim'}) {	foreach my $v ($perlvar{'lonExpire'},$perlvar{'lonLoadLim'}) {
unless ($v=~/^[\d+\.]+$/) { $error.="\nNumber expected instead of $v"; }	unless ($v=~/^[\d+\.]+$/) { $error.="\nNumber expected instead of $v"; }