loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

version 1.1207, 2012/12/21 16:58:41	version 1.1208, 2012/12/31 14:29:21
Line 2716 sub can_edit_resource {	Line 2716 sub can_edit_resource {
return;	return;
}	}
} else {	} else {
	if ($resurl =~ m{^/?adm/viewclasslist$}) {
	unless (&Apache::lonnet::allowed('opa',$env{'request.course.id'})) {
	return;
	}
	} elsif (!$crsedit) {
#	#
# No edit allowed where CC has switched to student role.	# No edit allowed where CC has switched to student role.
#	#
unless ($crsedit) {
return;	return;
}	}
}	}
Line 2766 sub can_edit_resource {	Line 2770 sub can_edit_resource {
$forceedit = 1;	$forceedit = 1;
}	}
$cfile = $resurl;	$cfile = $resurl;
	} elsif ($resurl =~ m{^/?adm/viewclasslist$}) {
	$incourse = 1;
	if ($env{'form.forceedit'}) {
	$forceview = 1;
	} else {
	$forceedit = 1;
	}
	$cfile = ($resurl =~ m{^/} ? $resurl : "/$resurl");
}	}
} elsif ($resurl eq '/res/lib/templates/simpleproblem.problem/smpedit') {	} elsif ($resurl eq '/res/lib/templates/simpleproblem.problem/smpedit') {
my $template = '/res/lib/templates/simpleproblem.problem';	my $template = '/res/lib/templates/simpleproblem.problem';