loncom/interface/courseprefs.pm - diff

Return to courseprefs.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.131, 2024/02/24 23:41:44	version 1.133, 2025/01/07 16:19:19
Line 2735 sub store_changes {	Line 2735 sub store_changes {
$displayname = &mt('Recipients of '.$text.' questions');	$displayname = &mt('Recipients of '.$text.' questions');
}	}
} elsif ($item eq 'discussion') {	} elsif ($item eq 'discussion') {
if ($key =~ /^p(lc\|ch)\.roles\.denied/) {	if ($key =~ /^p(lc\|ch\|ac)\.roles\.denied/) {
$displayname = &mt("$text (role-based)");	$displayname = &mt("$text (role-based)");
if ($displayval ne '') {	if ($displayval ne '') {
my @roles = split(',',$displayval);	my @roles = split(',',$displayval);
@roles = map { &Apache::lonnet::plaintext($_); } @roles;	@roles = map { &Apache::lonnet::plaintext($_); } @roles;
$displayval = join(', ',@roles);	$displayval = join(', ',@roles);
}	}
} elsif ($key =~ /^p(lc\|ch)\.users\.denied/) {	} elsif ($key =~ /^p(lc\|ch\|ac)\.users\.denied/) {
$displayname = &mt("$text (specific user(s))");	$displayname = &mt("$text (specific user(s))");
} else {	} else {
if ($key eq 'allow_discussion_post_editing') {	if ($key eq 'allow_discussion_post_editing') {
Line 5298 sub update_releasereq {	Line 5298 sub update_releasereq {
}	}
$modified_courses = [];	$modified_courses = [];
}	}
undef($registered_cleanup);	return OK;
return;
}	}

sub show_autocoowners {	sub show_autocoowners {