version 1.141, 2003/09/15 18:43:53
|
version 1.144, 2003/09/17 18:16:39
|
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 660 sub handler {
|
Line 657 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 |
|
if ( &Apache::lonnet::mod_perl_version() == 2 ) { |
&Apache::lonnet::cleanenv(); |
&Apache::lonnet::cleanenv(); |
|
} |
$request->internal_redirect('/adm/ambiguous'); return; |
$request->internal_redirect('/adm/ambiguous'); return; |
} |
} |
} |
} |