Return to essayresponse.pm CVS log | Up to [LON-CAPA] / loncom / homework |
version 1.3, 2001/06/02 03:59:59 | version 1.4, 2001/08/13 21:44:24 |
---|---|
Line 10 sub BEGIN { | Line 10 sub BEGIN { |
sub start_essayresponse { | sub start_essayresponse { |
my ($target,$token,$tagstack,$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 { |