loncom/homework/essayresponse.pm - diff

Return to essayresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.14, 2002/08/01 19:16:45	version 1.15, 2002/08/07 16:23:05
Line 70 sub end_essayresponse {	Line 70 sub end_essayresponse {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
my $part = $Apache::inputtags::part;	my $part = $Apache::inputtags::part;
my $id = $Apache::inputtags::response[-1];	my $id = $Apache::inputtags::response[-1];
	my $result;
if ( $target eq 'grade' ) {	if ( $target eq 'grade' ) {
my $collaborators = $ENV{'form.HWCOL'.$part.'_'.$id};	my $collaborators = $ENV{'form.HWCOL'.$part.'_'.$id};
if ($collaborators =~ /[^\s]/) {	if ($collaborators =~ /[^\s]/) {
Line 92 sub end_essayresponse {	Line 93 sub end_essayresponse {
&Apache::response::handle_previous(\%previous,$award);	&Apache::response::handle_previous(\%previous,$award);
}	}
}	}
	} elsif ($target eq 'edit') {
	$result.=&Apache::edit::end_table();
}	}

&Apache::response::end_response;	&Apache::response::end_response;
return '';	return $result;
}	}

sub check_collaborators {	sub check_collaborators {