loncom/homework/radiobuttonresponse.pm - diff

Return to radiobuttonresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/radiobuttonresponse.pm between versions 1.111 and 1.115

version 1.111, 2007/02/22 01:25:31	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');
Line 208 sub end_foilgroup {	Line 217 sub end_foilgroup {
}	}
$Apache::lonxml::post_evaluate=0;	$Apache::lonxml::post_evaluate=0;
}	}
	if ($target eq 'web') {
	&Apache::response::setup_prior_tries_hash(\&format_prior_answer,
	[\%Apache::response::foilgroup]);
	}

&Apache::response::poprandomnumber();	&Apache::response::poprandomnumber();
&Apache::lonxml::increment_counter();	&Apache::lonxml::increment_counter();
return $result;	return $result;
Line 231 sub getfoilcounts {	Line 245 sub getfoilcounts {
return ($truecnt,$falsecnt);	return ($truecnt,$falsecnt);
}	}

	sub format_prior_answer {
	my ($mode,$answer,$other_data) = @_;
	my $foil_data = $other_data->[0];
	my %response = &Apache::lonnet::str2hash($answer);
	my ($name) = keys(%response);
	return '<span class="LC_prior_radiobutton">'.
	$foil_data->{$name.'.text'}.'</span>';

	}

sub displayallfoils {	sub displayallfoils {
my ($direction, $target)=@_;	my ($direction, $target)=@_;
my $result;	my $result;
Line 290 sub displayallfoils {	Line 314 sub displayallfoils {
$i++;	$i++;
} else {	} else {
$result .= '<label>';	$result .= '<label>';
$result.="<input type=\"radio\" name=\"HWVAL_$Apache::inputtags::response['-1']\" value=\"$temp\" ";	$result.="<input
	onchange=\"javascript:setSubmittedPart('$part');\"
	type=\"radio\"
	name=\"HWVAL_$Apache::inputtags::response['-1']\"
	value=\"$temp\" ";
if (defined($lastresponse{$name})) { $result .= 'checked="on"'; }	if (defined($lastresponse{$name})) { $result .= 'checked="on"'; }
$result .= ' />'.$Apache::response::foilgroup{$name.'.text'}.	$result .= ' />'.$Apache::response::foilgroup{$name.'.text'}.
'</label>';	'</label>';
Line 508 sub displayfoils {	Line 536 sub displayfoils {
}	}
if ($target ne 'tex') {	if ($target ne 'tex') {
$result.= '<label>';	$result.= '<label>';
$result.="<input type=\"radio\" name=\"HWVAL_$Apache::inputtags::response['-1']\" value=\"$temp\" ";	$result.=
	"<input type=\"radio\"
	onchange=\"javascript:setSubmittedPart('$part');\"
	name=\"HWVAL_$Apache::inputtags::response['-1']\"
	value=\"$temp\" ";
if (defined($lastresponse{$name})) { $result .= 'checked="on"'; }	if (defined($lastresponse{$name})) { $result .= 'checked="on"'; }
$result .= ' />'.$Apache::response::foilgroup{$name.'.text'}."</label>";	$result .= ' />'.$Apache::response::foilgroup{$name.'.text'}."</label>";
} else {	} else {

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.111
changed lines
	Added in v.1.115