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); |