loncom/homework/lonhomework.pm - diff

Return to lonhomework.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.143, 2003/09/17 17:50:49	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 ) {	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;