loncom/homework/lonhomework.pm - diff

Return to lonhomework.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.70, 2002/01/30 17:39:13	version 1.71, 2002/02/27 20:23:26
Line 435 sub handler {	Line 435 sub handler {
$Apache::lonhomework::browse= &Apache::lonnet::allowed('bre',$ENV{'request.filename'});	$Apache::lonhomework::browse= &Apache::lonnet::allowed('bre',$ENV{'request.filename'});
$Apache::lonhomework::viewgrades=&Apache::lonnet::allowed('vgr',$ENV{'request.course.id'});	$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
	# the last one
	if ( defined @{ $ENV{'form.problemmode'} } ) {
	&Apache::lonxml::debug("Problem Modes ".join(':',@{ $ENV{'form.problemmode'} }));
	my @modes=@{ $ENV{'form.problemmode'} };
	undef $ENV{'form.problemmode'};
	$ENV{'form.problemmode'}=$modes[-1];
	}
&Apache::lonxml::debug("Problem Mode ".$ENV{'form.problemmode'});	&Apache::lonxml::debug("Problem Mode ".$ENV{'form.problemmode'});
my $file=&Apache::lonnet::filelocation("",$request->uri);	my $file=&Apache::lonnet::filelocation("",$request->uri);