loncom/interface/lonhtmlcommon.pm - diff

Return to lonhtmlcommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.234, 2009/08/23 04:02:47	version 1.236, 2009/10/30 05:10:03
Line 1590 ENDTWO	Line 1590 ENDTWO

sub role_select_row {	sub role_select_row {
my ($roles,$title,$css_class,$show_separate_custom,$cdom,$cnum) = @_;	my ($roles,$title,$css_class,$show_separate_custom,$cdom,$cnum) = @_;
	my $crstype = 'Course';
	if ($cdom ne '' && $cnum ne '') {
	$crstype = &Apache::loncommon::course_type($cdom.'_'.$cnum);
	}
my $output;	my $output;
if (defined($title)) {	if (defined($title)) {
$output = &row_title($title,$css_class);	$output = &row_title($title,$css_class);
Line 1614 sub role_select_row {	Line 1618 sub role_select_row {
$plrole = &mt('Custom Role');	$plrole = &mt('Custom Role');
}	}
} else {	} else {
$plrole=&Apache::lonnet::plaintext($role);	$plrole=&Apache::lonnet::plaintext($role,$crstype);
}	}
if (($role ne 'cr') \|\| (!$show_separate_custom)) {	if (($role ne 'cr') \|\| (!$show_separate_custom)) {
$output .= ' <option value="'.$role.'">'.$plrole.'</option>';	$output .= ' <option value="'.$role.'">'.$plrole.'</option>';
Line 2023 sub set_form_elements {	Line 2027 sub set_form_elements {
}	}
}	}
$output .= "	$output .= "
	return;
}\n";	}\n";
return $output;	return $output;
}	}