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.1431, 2024/05/21 02:57:15
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);
Line 18071 sub init_user_environment {	Line 18072 sub init_user_environment {
} else {	} else {
$userenv{'editors'} = 'edit,xml';	$userenv{'editors'} = 'edit,xml';
}	}
	if ($userenv{'authorarchive'}) {
	$userenv{'canarchive'} = 1;
	} elsif (($userenv{'authorarchive'} eq '') &&
	($domdef{'archive'})) {
	$userenv{'canarchive'} = 1;
	}
}	}

$userenv{'canrequest.author'} =	$userenv{'canrequest.author'} =