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.19, 2007/09/05 00:59:51	version 1.20, 2007/09/05 12:46:21
Line 256	Line 256
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 (!&Apache::lonnet::domain($udom)) {	if (!&Apache::lonnet::domain($cldom)) {
$disallowed{'domain'} .= $item.',';	$disallowed{'domain'} .= $item.',';
}	}
} else {	} else {
Line 265	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.',';