loncom/homework/lonhomework.pm - diff

Return to lonhomework.pm CVS log

Up to [LON-CAPA] / loncom / homework

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