loncom/homework/lonhomework.pm - diff

Return to lonhomework.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.59, 2001/08/29 10:18:10	version 1.60, 2001/09/14 20:14:12
Line 38 sub get_target {	Line 38 sub get_target {
} else {	} else {
if ( $ENV{'form.problemmode'} eq 'View' ) {	if ( $ENV{'form.problemmode'} eq 'View' ) {
if ( defined $ENV{'form.submitted'}) {	if ( defined $ENV{'form.submitted'}) {
return ('grade', 'web');	return ('grade', 'web','answer');
} else {	} else {
return ('web');	return ('web','answer');
}	}
} elsif ( $ENV{'form.problemmode'} eq 'Edit' ) {	} elsif ( $ENV{'form.problemmode'} eq 'Edit' ) {
if ( $ENV{'form.submitted'} eq 'edit' ) {	if ( $ENV{'form.submitted'} eq 'edit' ) {
Line 229 sub renderpage {	Line 229 sub renderpage {
if ($target eq 'web') {	if ($target eq 'web') {
if (&Apache::lonnet::symbread() eq '') {	if (&Apache::lonnet::symbread() eq '') {
if ($ENV{'request.state'} eq "construct") {	if ($ENV{'request.state'} eq "construct") {
$request->print("In construction space, submissions ignored<br />");
} else {	} else {
$request->print("Browsing or <a href=\"/adm/ambiguous\">ambiguous</a> reference, submissions ignored<br />");	$request->print("Browsing or <a href=\"/adm/ambiguous\">ambiguous</a> reference, submissions ignored<br />");
}	}