version 1.138, 2003/07/22 19:55:26
|
version 1.143, 2003/09/17 17:50:49
|
Line 69 sub get_target {
|
Line 69 sub get_target {
|
} elsif ( defined($ENV{'form.grade_target'} ) |
} elsif ( defined($ENV{'form.grade_target'} ) |
&& ($Apache::lonhomework::viewgrades eq 'F' )) { |
&& ($Apache::lonhomework::viewgrades eq 'F' )) { |
return ($ENV{'form.grade_target'}); |
return ($ENV{'form.grade_target'}); |
|
} elsif (defined($ENV{'form.grade_target'} ) |
|
&& ($ENV{'form.grade_target'} eq 'answer')) { |
|
return ($ENV{'form.grade_target'}); |
} |
} |
|
|
if ( defined($ENV{'form.submitted'}) && |
if ( defined($ENV{'form.submitted'}) && |
Line 657 sub handler {
|
Line 660 sub handler {
|
# if we are browsing we might not be able to know where we are |
# if we are browsing we might not be able to know where we are |
if ($Apache::lonhomework::browse ne 'F') { |
if ($Apache::lonhomework::browse ne 'F') { |
#should know where we are, so ask |
#should know where we are, so ask |
$request->internal_redirect('/adm/ambiguous'); return; |
if ( $Apache::lonnet::mod_perl_version() == 2 ) { |
|
&Apache::lonnet::cleanenv(); |
|
} |
|
$request->internal_redirect('/adm/ambiguous'); return; |
} |
} |
} |
} |
|
|