loncom/homework/lonhomework.pm - diff

Return to lonhomework.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.33, 2001/01/12 20:40:23	version 1.34, 2001/01/15 21:44:21
Line 17 use Apache::Constants qw(:common);	Line 17 use Apache::Constants qw(:common);

sub get_target {	sub get_target {
if ( $ENV{'request.state'} eq "published") {	if ( $ENV{'request.state'} eq "published") {
if ( defined $ENV{'form.submit'}) {	if ( defined $ENV{'form.submitted'}) {
return ('grade', 'web');	return ('grade', 'web');
} else {	} else {
return ('web');	return ('web');
}	}
} elsif ($ENV{'request.state'} eq "construct") {	} elsif ($ENV{'request.state'} eq "construct") {
if ( defined $ENV{'form.preview'}) {	if ( defined $ENV{'form.preview'}) {
if ( defined $ENV{'form.submit'}) {	if ( defined $ENV{'form.submitted'}) {
return ('grade', 'web');	return ('grade', 'web');
} else {	} else {
return ('web');	return ('web');