loncom/homework/caparesponse/caparesponse.pm - diff

Return to caparesponse.pm CVS log

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

-version 1.200, 2006/12/13 22:48:10
+version 1.201, 2006/12/14 04:59:51
  Line 776  sub make_numerical_bubbles {
  	&Apache::response::get_response_param($part.'_'.$id,'numbubbles',8);
      my ($format)=&Apache::lonxml::get_param_var('format',$parstack,$safeeval);
-     my ($answer)=&Apache::lonxml::get_param_var('answer',$parstack,$safeeval);
+     my $name = (exists($answer{$tag_internal_answer_name})
+ 		? $tag_internal_answer_name
+ 		: (sort(keys(%answer)))[0]);
+     if ( scalar(@{$answer{$name}{'answers'}}) > 1) {
+ 	&Apache::lonxml::error("Only answers with 1 component are supported in exam mode");
+     }
+     if (scalar(@{$answer{$name}{'answers'}[0]}) > 1) {
+ 	&Apache::lonxml::error("Vector answers are unsupported in exam mode.");
+     }
+     my $answer = $answer{$name}{'answers'}[0][0];
      my (@incorrect)=&Apache::lonxml::get_param_var('incorrect',$parstack,
  						   $safeeval);
      if ($#incorrect eq 0) { @incorrect=(split(/,/,$incorrect[0])); }