loncom/interface/lonsource.pm - diff

Return to lonsource.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.37, 2017/09/29 19:18:10	version 1.38, 2017/10/07 21:07:17
Line 366 sub handler {	Line 366 sub handler {
&Apache::lonenc::check_decrypt(\$filename);	&Apache::lonenc::check_decrypt(\$filename);
if (($env{'request.role.domain'} eq $cdom) && ($filename =~ /$LONCAPA::assess_re/)) {	if (($env{'request.role.domain'} eq $cdom) && ($filename =~ /$LONCAPA::assess_re/)) {
my ($auname) = ($filename =~ m{^\Q/res/$cdom/\E($match_username)/});	my ($auname) = ($filename =~ m{^\Q/res/$cdom/\E($match_username)/});
if (($env{'request.course.adhocsrcaccess'} ne '') &&	if (($auname ne '') && ($env{'request.course.adhocsrcaccess'} ne '') &&
(grep(/^\Q$auname\E$/,split(/,/,$env{'request.course.adhocsrcaccess'})))) {	(grep(/^\Q$auname\E$/,split(/,/,$env{'request.course.adhocsrcaccess'})))) {
$canview = 1;	$canview = 1;
	} elsif ((&Apache::lonnet::metadata($filename) eq 'open') &&
	($filename =~ m{^\Q/res/$cdom/}) &&
	(&Apache::lonnet::allowed('bre','/'))) {
	$canview = 1;
}	}
}	}
}	}