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

Return to course.initialization.helper CVS log

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

Diff for /loncom/html/adm/helper/course.initialization.helper between versions 1.20 and 1.23

version 1.20, 2007/09/05 12:46:21	version 1.23, 2009/02/12 21:15:53
Line 57	Line 57
</message>	</message>
</state>	</state>

<state name="COURSE_DESCRIPTION" title="Course Description">	<state name="COURSE_DESCRIPTION" title="Course Title">
<message nextstate="FORBID_CHAT">	<message nextstate="FORBID_CHAT">
The "Course Description" is the name of the course that will be	The "Course Title" is the name of the course that will be
seen by the students. You may now modify the description and hit	seen by the students. You may now modify the description and hit
<nobr>"<b>Next -></b>"</nobr> to continue.<br />	<nobr>"<b>Next -></b>"</nobr> to continue.<br />
</message>	</message>
Line 197	Line 197
who will receive the feedback, such as a different instructor or a	who will receive the feedback, such as a different instructor or a
TA. Please enter their LON-CAPA address below, in the	TA. Please enter their LON-CAPA address below, in the
form <b>user:domain</b>, where "user" and "domain"	form <b>user:domain</b>, where "user" and "domain"
are both the LON-CAPA username and LON-CAPA domain, not an email	are both the LON-CAPA username and LON-CAPA domain, not an e-mail
address.</p>	address.</p>
</message>	</message>
<eval>return &mt('<p>Your current LON-CAPA domain is "<b>[_1]</b>".</p>',"$helper->{DATA}->{DOM}");	<eval>return &mt('<p>Your current LON-CAPA domain is "<b>[_1]</b>".</p>',"$helper->{DATA}->{DOM}");
Line 252	Line 252
$cloners[0] = $val;	$cloners[0] = $val;
}	}
foreach my $item (@cloners) {	foreach my $item (@cloners) {
if ($item ne '*') {	next if ($item =~ /^\s*$/);
my ($clname,$cldom) = split(/:/,$item);	next if ($item eq '*');
if ($clname eq '*') {
if ($cldom =~ /^$match_dom$/) {	my ($clname,$cldom) = split(/:/,$item);
if (!&Apache::lonnet::domain($cldom)) {	if ($clname eq '*') {
$disallowed{'domain'} .= $item.',';	if ($cldom =~ /^$match_dom$/) {
}	if (!&Apache::lonnet::domain($cldom)) {
} else {	$disallowed{'domain'} .= $item.',';
$disallowed{'format'} .= $item.',';	}
}	} else {
} elsif ($item !~/^($match_uname)\:($match_dom)$/) {	$disallowed{'format'} .= $item.',';
$disallowed{'format'} .= $item.',';	}
} else {	} elsif ($item !~/^($match_uname)\:($match_dom)$/) {
if (!&Apache::lonnet::domain($cldom)) {	$disallowed{'format'} .= $item.',';
$disallowed{'domain'} .= $item.',';	} else {
} elsif (&Apache::lonnet::homeserver($clname,$cldom) eq 'no_host') {	if (!&Apache::lonnet::domain($cldom)) {
$disallowed{'newuser'} .= $item.',';	$disallowed{'domain'} .= $item.',';
}	} elsif (&Apache::lonnet::homeserver($clname,$cldom) eq 'no_host') {
}	$disallowed{'newuser'} .= $item.',';
}	}
	}
}	}
foreach my $key (keys(%disallowed)) {	foreach my $key (keys(%disallowed)) {
$disallowed{$key} =~ s/,$//;	$disallowed{$key} =~ s/,$//;
Line 290	Line 291
$output .= '<li>LON-CAPA user(s) do(es) not exist: '.	$output .= '<li>LON-CAPA user(s) do(es) not exist: '.
'<b>'.$disallowed{'newuser'}.'</b></li>';	'<b>'.$disallowed{'newuser'}.'</b></li>';
}	}
$output .= '.</ul>';	$output .= '</ul>';
}	}
return $output;	return $output;
</validator>	</validator>

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.20
changed lines
	Added in v.1.23