version 1.41, 2005/08/15 17:53:33
|
version 1.42, 2005/10/26 19:38:15
|
Line 604 foreach my $v ($perlvar{'lonDefDomain'},
|
Line 604 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!~/^[\(\)\-\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'}) { |