--- loncom/html/adm/helper/course.initialization.helper 2007/09/03 20:23:57 1.18
+++ loncom/html/adm/helper/course.initialization.helper 2007/09/05 12:46:21 1.20
@@ -251,13 +251,12 @@
} else {
$cloners[0] = $val;
}
- my @alldoms = &Apache::lonnet::all_domains();
foreach my $item (@cloners) {
if ($item ne '*') {
my ($clname,$cldom) = split(/:/,$item);
if ($clname eq '*') {
if ($cldom =~ /^$match_dom$/) {
- if (!grep(/^\Q$cldom\E$/,@alldoms)) {
+ if (!&Apache::lonnet::domain($cldom)) {
$disallowed{'domain'} .= $item.',';
}
} else {
@@ -266,7 +265,7 @@
} elsif ($item !~/^($match_uname)\:($match_dom)$/) {
$disallowed{'format'} .= $item.',';
} else {
- if (!grep(/^\Q$cldom\E$/,@alldoms)) {
+ if (!&Apache::lonnet::domain($cldom)) {
$disallowed{'domain'} .= $item.',';
} elsif (&Apache::lonnet::homeserver($clname,$cldom) eq 'no_host') {
$disallowed{'newuser'} .= $item.',';