loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.1421, 2023/11/19 21:28:17	version 1.1422, 2023/11/26 20:47:16
Line 6590 sub nocodemirror {	Line 6590 sub nocodemirror {

=item * &permitted_editors()	=item * &permitted_editors()

Input: None	Input: $uri (optional)

Returns: %editors hash in which keys are editors	Returns: %editors hash in which keys are editors
permitted in current Authoring Space.	permitted in current Authoring Space.
Line 6605 Returns: %editors hash in which keys are	Line 6605 Returns: %editors hash in which keys are
=cut	=cut

sub permitted_editors {	sub permitted_editors {
	my ($uri) = @_;
my ($is_author,$is_coauthor,$auname,$audom,%editors);	my ($is_author,$is_coauthor,$auname,$audom,%editors);
if ($env{'request.role'} =~ m{^au\./}) {	if ($env{'request.role'} =~ m{^au\./}) {
$is_author = 1;	$is_author = 1;
Line 6623 sub permitted_editors {	Line 6624 sub permitted_editors {
($audom,$auname) = ($1,$2);	($audom,$auname) = ($1,$2);
} elsif ($env{'request.uri'} =~ m{^/priv/($match_domain)/($match_username)/}) {	} elsif ($env{'request.uri'} =~ m{^/priv/($match_domain)/($match_username)/}) {
($audom,$auname) = ($1,$2);	($audom,$auname) = ($1,$2);
	} elsif (($uri eq '/daxesave') &&
	($env{'form.path'} =~ m{^/daxeopen/priv/($match_domain)/($match_username)/})) {
	($audom,$auname) = ($1,$2);
}	}
if (($audom ne '') && ($auname ne '')) {	if (($audom ne '') && ($auname ne '')) {
if (($env{'user.domain'} eq $audom) &&	if (($env{'user.domain'} eq $audom) &&