version 1.2, 2001/04/05 00:07:53
|
version 1.3, 2001/06/02 03:59:59
|
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 $id = &Apache::response::start_response($parstack,$safeeval); |
my $id = &Apache::response::start_response($parstack,$safeeval); |
return ''; |
return ''; |
} |
} |
|
|
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']; |