loncom/homework/caparesponse/caparesponse.pm - diff

Return to caparesponse.pm CVS log

Up to [LON-CAPA] / loncom / homework / caparesponse

version 1.117, 2003/10/23 07:31:52	version 1.118, 2003/10/23 07:54:55
Line 208 sub end_numericalresponse {	Line 208 sub end_numericalresponse {
}	}
}	}
if ($Apache::lonhomework::type eq 'exam') {	if ($Apache::lonhomework::type eq 'exam') {
	my $partid=$Apache::inputtags::part;
	my $id=$Apache::inputtags::response[-1];
my $number_of_bubbles = &Apache::lonnet::EXT('resource.'.$partid.'_'.$id.'.numbubbles');	my $number_of_bubbles = &Apache::lonnet::EXT('resource.'.$partid.'_'.$id.'.numbubbles');
if (!$number_of_bubbles) { $number_of_bubbles=8; }	if (!$number_of_bubbles) { $number_of_bubbles=8; }
my (@formats)=&Apache::lonxml::get_param_var('format',$parstack,	my (@formats)=&Apache::lonxml::get_param_var('format',$parstack,
Line 219 sub end_numericalresponse {	Line 221 sub end_numericalresponse {
$target,$answers[0],	$target,$answers[0],
$formats[0],\@incorrect);	$formats[0],\@incorrect);
my @alphabet=('A'..'Z');	my @alphabet=('A'..'Z');
my $id=$Apache::inputtags::response[-1];
if ($target eq 'web') {	if ($target eq 'web') {
if ($$tagstack[-1] eq 'numericalresponse') {	if ($$tagstack[-1] eq 'numericalresponse') {
if ($unit=~/\S/) {$result.=' (in '.$unit.')<br /><br />';}	if ($unit=~/\S/) {$result.=' (in '.$unit.')<br /><br />';}