loncom/homework/imageresponse.pm - diff

Return to imageresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.12, 2001/08/06 20:33:23	version 1.13, 2001/08/13 21:44:24
Line 12 sub BEGIN {	Line 12 sub BEGIN {

sub start_imageresponse {	sub start_imageresponse {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
	my $result;
#when in a radiobutton response use these	#when in a radiobutton response use these
&Apache::lonxml::register('Apache::imageresponse',('foilgroup','foil','text','image','rectangle','conceptgroup'));	&Apache::lonxml::register('Apache::imageresponse',('foilgroup','foil','text','image','rectangle','conceptgroup'));
push (@Apache::lonxml::namespace,'imageresponse');	push (@Apache::lonxml::namespace,'imageresponse');
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('imageresponse');
	}
	return $result;
}	}

sub end_imageresponse {	sub end_imageresponse {