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