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.35, 2001/01/24 14:26:28
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');
Line 128 sub handler {	Line 128 sub handler {
}	}
$request->send_http_header;	$request->send_http_header;
return OK if $request->header_only;	return OK if $request->header_only;

	#check if we know where we are
	if ($ENV{'request.course.fn'} && !&Apache::lonnet::symbread()) {
	$request->internal_redirect('/adm/ambiguous'); return;
	}

&Apache::lonhomework::send_header($request);	&Apache::lonhomework::send_header($request);

#check if allowed to see	#check if allowed to see