rat/lonpage.pm - diff

Return to lonpage.pm CVS log

Up to [LON-CAPA] / rat

version 1.128, 2019/08/11 14:16:59	version 1.130, 2020/02/17 16:12:35
Line 360 ENDEXT	Line 360 ENDEXT
if ($env{'form.all_submit_pressed'}) {	if ($env{'form.all_submit_pressed'}) {
$posthash{'all_submit'}='yes';	$posthash{'all_submit'}='yes';
}	}
}	} elsif ($env{'form.'.$prefix.'markaccess'} eq 'yes') {
	$posthash{'markaccess'} = $env{'form.'.$prefix.'markaccess'};
	}
my $output=Apache::lonnet::ssi($src,%posthash);	my $output=Apache::lonnet::ssi($src,%posthash);
$output=~s\|//(\s<!--)? BEGIN LON-CAPA Internal.+?// END LON-CAPA Internal\s(-->)?\s\|\|gs;	$output=~s\|//(\s<!--)? BEGIN LON-CAPA Internal.+?// END LON-CAPA Internal\s(-->)?\s\|\|gs;
if (($target eq 'tex') \|\| ($target eq 'tex_answer')) {	if (($target eq 'tex') \|\| ($target eq 'tex_answer')) {
Line 989 sub get_buttons {	Line 991 sub get_buttons {
if (($env{'request.course.adhocsrcaccess'} ne '') &&	if (($env{'request.course.adhocsrcaccess'} ne '') &&
(grep(/^\Q$auname\E$/,split(/,/,$env{'request.course.adhocsrcaccess'})))) {	(grep(/^\Q$auname\E$/,split(/,/,$env{'request.course.adhocsrcaccess'})))) {
$viewsrcbutton = 1;	$viewsrcbutton = 1;
	} elsif ((&Apache::lonnet::metadata($url,'sourceavail') eq 'open') &&
	(&Apache::lonnet::allowed('bre','/'))) {
	$viewsrcbutton = 1;
}	}
}	}
}	}