loncom/interface/loncreateuser.pm - diff

Return to loncreateuser.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.81, 2004/04/15 22:35:51	version 1.82, 2004/05/07 22:04:16
Line 1297 sub course_level_table {	Line 1297 sub course_level_table {
my $bgcol=$thiscourse;	my $bgcol=$thiscourse;
$bgcol=~s/[^7-9a-e]//g;	$bgcol=~s/[^7-9a-e]//g;
$bgcol=substr($bgcol.$bgcol.$bgcol.'ffffff',2,6);	$bgcol=substr($bgcol.$bgcol.$bgcol.'ffffff',2,6);
	my ($domain)=split(/\//,$thiscourse);
foreach ('st','ta','ep','ad','in','cc') {	foreach ('st','ta','ep','ad','in','cc') {
if (&Apache::lonnet::allowed('c'.$_,$thiscourse)) {	if (&Apache::lonnet::allowed('c'.$_,$thiscourse)) {
my $plrole=&Apache::lonnet::plaintext($_);	my $plrole=&Apache::lonnet::plaintext($_);
Line 1304 sub course_level_table {	Line 1305 sub course_level_table {
<tr bgcolor="#$bgcol">	<tr bgcolor="#$bgcol">
<td><input type="checkbox" name="act_$protectedcourse\_$_"></td>	<td><input type="checkbox" name="act_$protectedcourse\_$_"></td>
<td>$plrole</td>	<td>$plrole</td>
<td>$area</td>	<td>$area<br />Domain: $domain</td>
ENDEXTENT	ENDEXTENT
if ($_ ne 'cc') {	if ($_ ne 'cc') {
$table .= <<ENDSECTION;	$table .= <<ENDSECTION;