--- loncom/homework/caparesponse/caparesponse.pm	2003/10/23 07:31:52	1.117
+++ loncom/homework/caparesponse/caparesponse.pm	2003/10/23 07:54:55	1.118
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # caparesponse definition
 #
-# $Id: caparesponse.pm,v 1.117 2003/10/23 07:31:52 albertel Exp $
+# $Id: caparesponse.pm,v 1.118 2003/10/23 07:54:55 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -208,6 +208,8 @@ sub end_numericalresponse {
 	    }
 	}
 	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');
 	    if (!$number_of_bubbles) { $number_of_bubbles=8; }
 	    my (@formats)=&Apache::lonxml::get_param_var('format',$parstack,
@@ -219,7 +221,6 @@ sub end_numericalresponse {
 						      $target,$answers[0],
 						      $formats[0],\@incorrect);
 	    my @alphabet=('A'..'Z');
-	    my $id=$Apache::inputtags::response[-1];
 	    if ($target eq 'web') {
 		if ($$tagstack[-1] eq 'numericalresponse') {
 		    if ($unit=~/\S/) {$result.=' (in '.$unit.')<br /><br />';}