loncom/homework/lonhomework.pm - diff

Return to lonhomework.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.179, 2004/09/18 17:29:29	version 1.181, 2004/09/29 06:51:25
Line 292 sub check_access {	Line 292 sub check_access {
$status = 'CANNOT_ANSWER';	$status = 'CANNOT_ANSWER';
}	}
}	}
if ($status eq 'CAN_ANSWER') {	if ($status eq 'CAN_ANSWER' \|\| $status eq 'CANNOT_ANSWER') {
my $interval=&Apache::lonnet::EXT("resource.$id.interval");	my $interval=&Apache::lonnet::EXT("resource.$id.interval");
&Apache::lonxml::debug("looking for interval $interval");	&Apache::lonxml::debug("looking for interval $interval");
if ($interval) {	if ($interval) {
Line 755 sub handler {	Line 755 sub handler {
if (&setupheader($request)) { return OK; }	if (&setupheader($request)) { return OK; }
$ENV{'request.uri'}=$request->uri;	$ENV{'request.uri'}=$request->uri;

#setup permissions	&setuppermissions();
$Apache::lonhomework::browse= &Apache::lonnet::allowed('bre',$ENV{'request.filename'});
$Apache::lonhomework::viewgrades=&Apache::lonnet::allowed('vgr',$ENV{'request.course.id'});
&Apache::lonxml::debug("Permissions:$Apache::lonhomework::browse:$Apache::lonhomework::viewgrades:");	&Apache::lonxml::debug("Permissions:$Apache::lonhomework::browse:$Apache::lonhomework::viewgrades:");
# some times multiple problemmodes are submitted, need to select	# some times multiple problemmodes are submitted, need to select
# the last one	# the last one