loncom/homework/radiobuttonresponse.pm - diff

Return to radiobuttonresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.114, 2007/04/17 23:25:09	version 1.115, 2007/05/17 10:01:44
Line 31 use strict;	Line 31 use strict;
use HTML::Entities();	use HTML::Entities();
use Apache::lonlocal;	use Apache::lonlocal;
use Apache::lonnet;	use Apache::lonnet;
	use Apache::response;

BEGIN {	BEGIN {
&Apache::lonxml::register('Apache::radiobuttonresponse',('radiobuttonresponse'));	&Apache::lonxml::register('Apache::radiobuttonresponse',('radiobuttonresponse'));
Line 39 BEGIN {	Line 40 BEGIN {
sub start_radiobuttonresponse {	sub start_radiobuttonresponse {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
my $result;	my $result;
	#----- test/debugging to figure out some crap

	my $partid = $Apache::inputtags::part;
	&Apache::lonnet::logthis("Part id = $partid");
	my $bubble_max = &Apache::response::get_response_param($partid, 'numbubbles', 10);
	&Apache::lonnet::logthis("numbubbles [10] = $bubble_max");

	#----- End test/debugging
#when in a radiobutton response use these	#when in a radiobutton response use these
&Apache::lonxml::register('Apache::radiobuttonresponse',('foilgroup','foil','conceptgroup'));	&Apache::lonxml::register('Apache::radiobuttonresponse',('foilgroup','foil','conceptgroup'));
push (@Apache::lonxml::namespace,'radiobuttonresponse');	push (@Apache::lonxml::namespace,'radiobuttonresponse');