loncom/homework/lonhomework.pm - diff

Return to lonhomework.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.172, 2004/03/30 08:20:49	version 1.174, 2004/04/17 14:06:41
Line 207 sub check_access {	Line 207 sub check_access {
if ( ! ($ENV{'form.problemstate'} eq 'CANNOT_ANSWER_correct' &&	if ( ! ($ENV{'form.problemstate'} eq 'CANNOT_ANSWER_correct' &&
lc($Apache::lonhomework::problemstatus) eq 'no')) {	lc($Apache::lonhomework::problemstatus) eq 'no')) {
return ('CANNOT_ANSWER',	return ('CANNOT_ANSWER',
&mt('is in this state by royal decree.'));	&mt('is in this state due to author settings.'));
}	}
} else {	} else {
return ($ENV{'form.problemstate'},	return ($ENV{'form.problemstate'},
&mt('is in this state by royal decree.'));	&mt('is in this state due to author settings.'));
}	}
}	}
&Apache::lonxml::debug("in construction ignoring dates");	&Apache::lonxml::debug("in construction ignoring dates");
Line 753 sub handler {	Line 753 sub handler {
#check if we know where we are	#check if we know where we are
if ($ENV{'request.course.fn'} && !&Apache::lonnet::symbread()) {	if ($ENV{'request.course.fn'} && !&Apache::lonnet::symbread()) {
# 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' &&
	$ENV{'request.state'} ne "construct") {
#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();