loncom/homework/lonhomework.pm - diff

Return to lonhomework.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.71, 2002/02/27 20:23:26	version 1.72, 2002/02/28 01:18:47
Line 437 sub handler {	Line 437 sub handler {
&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
if ( defined @{ $ENV{'form.problemmode'} } ) {	if ( defined($ENV{'form.problemmode'}) &&
&Apache::lonxml::debug("Problem Modes ".join(':',@{ $ENV{'form.problemmode'} }));	defined(@{ $ENV{'form.problemmode'} })) {
my @modes=@{ $ENV{'form.problemmode'} };	&Apache::lonxml::debug("3Problem Modes ".$ENV{'form.problemmode'});
	my $mode=$ENV{'form.problemmode'}->[-1];
undef $ENV{'form.problemmode'};	undef $ENV{'form.problemmode'};
$ENV{'form.problemmode'}=$modes[-1];	$ENV{'form.problemmode'}=$mode;
}	}
&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);