loncom/interface/loncreateuser.pm - diff

Return to loncreateuser.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.122, 2006/06/26 22:31:56	version 1.124, 2006/06/28 18:18:44
Line 1598 sub custom_role_editor {	Line 1598 sub custom_role_editor {
ENDCCF	ENDCCF
foreach my $priv (sort keys %full) {	foreach my $priv (sort keys %full) {
my $privtext = &Apache::lonnet::plaintext($priv);	my $privtext = &Apache::lonnet::plaintext($priv);
if ($env{'course.'.$env{'request.course.id'}.'.type'}) {
$privtext =~ s/Student/Member/;
$privtext =~ s/student/member/;
$privtext =~ s/course/group/;
}
$r->print('<tr><td>'.$privtext.'</td><td>'.	$r->print('<tr><td>'.$privtext.'</td><td>'.
($courselevel{$priv}?'<input type="checkbox" name="'.$priv.':c" '.	($courselevel{$priv}?'<input type="checkbox" name="'.$priv.':c" '.
($courselevelcurrent{$priv}?'checked="1"':'').' />':' ').	($courselevelcurrent{$priv}?'checked="1"':'').' />':' ').
Line 1770 sub course_level_table {	Line 1765 sub course_level_table {
foreach ('st','ta','ep','in','cc') {	foreach ('st','ta','ep','in','cc') {
if (&Apache::lonnet::allowed('c'.$_,$thiscourse)) {	if (&Apache::lonnet::allowed('c'.$_,$thiscourse)) {
my $plrole=&Apache::lonnet::plaintext($_);	my $plrole=&Apache::lonnet::plaintext($_);
# Was this left in by mistake?
# if ($type eq 'Group') {
# $plrole = &Apache::loncommon::convert_role($plrole,$type);
# }
$table .= <<ENDEXTENT;	$table .= <<ENDEXTENT;
<tr bgcolor="#$bgcol">	<tr bgcolor="#$bgcol">
<td><input type="checkbox" name="act_$protectedcourse\_$_"></td>	<td><input type="checkbox" name="act_$protectedcourse\_$_"></td>