loncom/html/adm/helper/course.initialization.helper - diff

Return to course.initialization.helper CVS log

Up to [LON-CAPA] / loncom / html / adm / helper

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