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'); |