loncom/homework/essayresponse.pm - diff

Return to essayresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.2, 2001/04/05 00:07:53	version 1.4, 2001/08/13 21:44:24
Line 9 sub BEGIN {	Line 9 sub BEGIN {
}	}

sub start_essayresponse {	sub start_essayresponse {
my ($target,$token,$parstack,$parser,$safeeval,$style)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
	my $result;
my $id = &Apache::response::start_response($parstack,$safeeval);	my $id = &Apache::response::start_response($parstack,$safeeval);
return '';	if ($target eq 'meta') {
	$result=&Apache::response::meta_package_write('essayresponse');
	}
	return $result;
}	}

sub end_essayresponse {	sub end_essayresponse {
my ($target,$token,$parstack,$parser,$safeeval,$style)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
if ( $target eq 'grade' ) {	if ( $target eq 'grade' ) {
if ( defined $ENV{'form.submitted'}) {	if ( defined $ENV{'form.submitted'}) {
my $id = $Apache::inputtags::response['-1'];	my $id = $Apache::inputtags::response['-1'];