[LON-CAPA-cvs] cvs: loncom /homework/caparesponse caparesponse.pm

albertel lon-capa-cvs@mail.lon-capa.org
Thu, 23 Oct 2003 07:54:55 -0000


albertel		Thu Oct 23 03:54:55 2003 EDT

  Modified files:              
    /loncom/homework/caparesponse	caparesponse.pm 
  Log:
  - forgot this
  
  
Index: loncom/homework/caparesponse/caparesponse.pm
diff -u loncom/homework/caparesponse/caparesponse.pm:1.117 loncom/homework/caparesponse/caparesponse.pm:1.118
--- loncom/homework/caparesponse/caparesponse.pm:1.117	Thu Oct 23 03:31:52 2003
+++ loncom/homework/caparesponse/caparesponse.pm	Thu Oct 23 03:54:55 2003
@@ -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 @@
 	    }
 	}
 	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 @@
 						      $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 />';}