--- 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 00:59:51 1.19
@@ -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($udom)) {
$disallowed{'domain'} .= $item.',';
}
} else {