loncom/auth/lonroles.pm - diff

Return to lonroles.pm CVS log

Up to [LON-CAPA] / loncom / auth

Diff for /loncom/auth/lonroles.pm between versions 1.269.2.39.2.6 and 1.269.2.39.2.7

version 1.269.2.39.2.6, 2022/10/05 23:05:24	version 1.269.2.39.2.7, 2023/01/20 23:28:19
Line 508 sub handler {	Line 508 sub handler {
"request.course.sec" => '',	"request.course.sec" => '',
"request.course.tied" => '',	"request.course.tied" => '',
"request.course.timechecked" => '',	"request.course.timechecked" => '',
	"request.course.suppupdated" => '',
"request.role" => 'cm',	"request.role" => 'cm',
"request.role.adv" => $env{'user.adv'},	"request.role.adv" => $env{'user.adv'},
"request.role.domain" => $env{'user.domain'}});	"request.role.domain" => $env{'user.domain'}});
Line 863 ENDCLOSE	Line 864 ENDCLOSE
my ($feeds,$syllabus_time);	my ($feeds,$syllabus_time);
&Apache::lonrss::advertisefeeds($cnum,$cdom,undef,\$feeds);	&Apache::lonrss::advertisefeeds($cnum,$cdom,undef,\$feeds);
&Apache::lonnet::appenv({'request.course.feeds' => $feeds});	&Apache::lonnet::appenv({'request.course.feeds' => $feeds});
&Apache::lonnet::get_numsuppfiles($cnum,$cdom,1);
unless ($env{'course.'.$cdom.'_'.$cnum.'.updatedsyllabus'}) {	unless ($env{'course.'.$cdom.'_'.$cnum.'.updatedsyllabus'}) {
unless (($env{'course.'.$cdom.'_'.$cnum.'.externalsyllabus'}) \|\|	unless (($env{'course.'.$cdom.'_'.$cnum.'.externalsyllabus'}) \|\|
($env{'course.'.$cdom.'_'.$cnum.'.uploadedsyllabus'})) {	($env{'course.'.$cdom.'_'.$cnum.'.uploadedsyllabus'})) {
Line 896 ENDCLOSE	Line 896 ENDCLOSE
if ($env{'form.symb'}) {	if ($env{'form.symb'}) {
$furl .= '&symb='.&HTML::Entities::encode($env{'form.symb'},'<>&"');	$furl .= '&symb='.&HTML::Entities::encode($env{'form.symb'},'<>&"');
}	}
	} else {
	&set_supplemental_access($cnum,$cdom);
}	}
if (($ferr) && ($tadv)) {	if (($ferr) && ($tadv)) {
&error_page($r,$ferr,$furl);	&error_page($r,$ferr,$furl);
Line 957 ENDCLOSE	Line 959 ENDCLOSE
&Apache::loncommon::end_page());	&Apache::loncommon::end_page());
}	}
} else {	} else {
	&set_supplemental_access($cnum,$cdom);
if ($env{'request.deeplink.login'}) {	if ($env{'request.deeplink.login'}) {
&set_deeplink_target($cnum,$cdom);	&set_deeplink_target($cnum,$cdom);
}	}
Line 3447 sub set_deeplink_target {	Line 3450 sub set_deeplink_target {
return;	return;
}	}

	sub set_supplemental_access {
	my ($cnum,$cdom) = @_;
	my ($supplemental,$refs_updated) = &Apache::loncommon::get_supplemental($cnum,$cdom);
	unless ($refs_updated) {
	&Apache::loncommon::set_supp_httprefs($cnum,$cdom,$supplemental);
	}
	}

1;	1;
__END__	__END__

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.269.2.39.2.6
changed lines
	Added in v.1.269.2.39.2.7