loncom/interface/lonsource.pm - diff

Return to lonsource.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.38, 2017/10/07 21:07:17	version 1.39, 2020/02/03 19:02:18
Line 358 sub handler {	Line 358 sub handler {
$filename =~ s/\~//g;	$filename =~ s/\~//g;
$filename =~ s/\/+/\//g;	$filename =~ s/\/+/\//g;
if (($env{'request.course.id'}) && (&Apache::lonnet::is_on_map($filename))) {	if (($env{'request.course.id'}) && (&Apache::lonnet::is_on_map($filename))) {
if ((&Apache::lonnet::metadata(&Apache::lonenc::check_decrypt($filename)) eq 'open') &&	if ((&Apache::lonnet::metadata(&Apache::lonenc::check_decrypt($filename),'sourceavail') eq 'open') &&
(&Apache::lonnet::allowed('cre','/'))) {	(&Apache::lonnet::allowed('cre','/'))) {
$canview = 1;	$canview = 1;
} elsif (&Apache::lonnet::allowed('vxc',$env{'request.course.id'})) {	} elsif (&Apache::lonnet::allowed('vxc',$env{'request.course.id'})) {
Line 369 sub handler {	Line 369 sub handler {
if (($auname ne '') && ($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') &&	} elsif ((&Apache::lonnet::metadata($filename,'sourceavail') eq 'open') &&
($filename =~ m{^\Q/res/$cdom/}) &&	($filename =~ m{^\Q/res/$cdom/}) &&
(&Apache::lonnet::allowed('bre','/'))) {	(&Apache::lonnet::allowed('bre','/'))) {
$canview = 1;	$canview = 1;