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"; } |