loncom/interface/groupsort.pm - diff

Return to groupsort.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.75, 2016/11/22 13:51:29	version 1.76, 2017/05/30 15:10:57
Line 205 sub handler {	Line 205 sub handler {

# permissions checking	# permissions checking
my ($allowed,$canedit,$context,$cid);	my ($allowed,$canedit,$context,$cid);
if ($env{'form.readfile'} =~ m{^/uploaded/($match_domain)/($match_courseid)/}) {	if ($env{'form.readfile'} eq '') {
	$allowed = 1;
	} elsif ($env{'form.readfile'} =~ m{^/uploaded/($match_domain)/($match_courseid)/}) {
my ($cdom,$cnum) = ($1,$2);	my ($cdom,$cnum) = ($1,$2);
$cid = $cdom.'_'.$cnum;	$cid = $cdom.'_'.$cnum;
$context = 'course';	$context = 'course';
Line 219 sub handler {	Line 221 sub handler {
(&Apache::lonnet::allowed('bro',$env{'form.readfile'}))) {	(&Apache::lonnet::allowed('bro',$env{'form.readfile'}))) {
$allowed = 1;	$allowed = 1;
}	}
} elsif (($env{'form.readfile'} eq '') && ($env{'form.acts'} ne '')) {
$allowed = 1;
}	}
if ($allowed) {	if ($allowed) {
if ($env{'form.mode'} eq 'rat') {	if ($env{'form.mode'} eq 'rat') {