loncom/homework/lonhomework.pm - diff

Return to lonhomework.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.89, 2002/09/23 17:29:37	version 1.91, 2002/09/25 18:49:01
Line 59 BEGIN {	Line 59 BEGIN {

sub get_target {	sub get_target {
if ( $ENV{'request.state'} eq "published") {	if ( $ENV{'request.state'} eq "published") {
if ( defined($ENV{'form.grade_target'})	if ( defined($ENV{'form.grade_target'} )
	&& ($ENV{'form.grade_target'} eq 'tex')) {
	return ($ENV{'form.grade_target'});
	} elsif ( defined($ENV{'form.grade_target'} )
&& ($Apache::lonhomework::viewgrades == 'F' )) {	&& ($Apache::lonhomework::viewgrades == 'F' )) {
return ($ENV{'form.grade_target'});	return ($ENV{'form.grade_target'});
}	}

if ( defined($ENV{'form.submitted'})) {	if ( defined($ENV{'form.submitted'})) {
return ('grade', 'web');	return ('grade', 'web');
} else {	} else {
Line 500 sub handler {	Line 504 sub handler {
#my $t0 = [&gettimeofday()];	#my $t0 = [&gettimeofday()];
my $request=$_[0];	my $request=$_[0];

if ( $ENV{'user.name'} eq 'albertel' ) {$Apache::lonxml::debug=1;}	# if ( $ENV{'user.name'} eq 'albertel' ) {$Apache::lonxml::debug=1;}

if (&setupheader($request)) { return OK; }	if (&setupheader($request)) { return OK; }
$ENV{'request.uri'}=$request->uri;	$ENV{'request.uri'}=$request->uri;