loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.1429, 2024/04/14 17:12:27	version 1.1430, 2024/04/14 18:45:57
Line 6699 sub permitted_editors {	Line 6699 sub permitted_editors {
$cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};	$cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
$cnum = $env{'course.'.$env{'request.course.id'}.'.num'};	$cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
if (($env{'request.editurl'} =~ m{^/priv/\Q$cdom/$cnum\E/}) \|\|	if (($env{'request.editurl'} =~ m{^/priv/\Q$cdom/$cnum\E/}) \|\|
($env{'request.editurl'} =~ m{^/uploaded/\Q$cdom/$cnum\E/(docs\|supplemental)/})) {	($env{'request.editurl'} =~ m{^/uploaded/\Q$cdom/$cnum\E/(docs\|supplemental)/}) \|\|
	($uri =~ m{^/uploaded/\Q$cdom/$cnum\E/(docs\|supplemental)/})) {
$is_course = 1;	$is_course = 1;
} elsif ($env{'request.editurl'} =~ m{^/priv/($match_domain)/($match_username)/}) {	} elsif ($env{'request.editurl'} =~ m{^/priv/($match_domain)/($match_username)/}) {
($audom,$auname) = ($1,$2);	($audom,$auname) = ($1,$2);