--- loncom/homework/caparesponse/caparesponse.pm	2003/04/08 04:17:13	1.92
+++ loncom/homework/caparesponse/caparesponse.pm	2003/04/18 07:12:13	1.93
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # caparesponse definition
 #
-# $Id: caparesponse.pm,v 1.92 2003/04/08 04:17:13 albertel Exp $
+# $Id: caparesponse.pm,v 1.93 2003/04/18 07:12:13 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -242,13 +242,10 @@ sub end_numericalresponse {
 		    $result.='\end{enumerate}';
 		} else {
 		    $result.='\fbox{\fbox{\parbox{\textwidth-5mm}{\strut\\\\\strut\\\\\strut\\\\\strut\\\\}}}';
-		    my $id = $Apache::inputtags::part;
-		    my $weight = &Apache::lonnet::EXT("resource.$id.weight");
-		    my $repetition = int $weight/9;
-		    if ($weight % 9 != 0) {$repetition++;}
+		    my $repetition = &Apache::response::repetition();
 		    $result.='\begin{enumerate}';
 		    for (my $i=0;$i<$repetition;$i++) {
-			$result.='\item[\textbf{'.$Apache::lonxml::counter.'}.]\textit{Leave blank on scoring form}\vskip 0 mm';
+			$result.='\item[\textbf{'.($Apache::lonxml::counter+$i).'}.]\textit{Leave blank on scoring form}\vskip 0 mm';
 		    }
 		    $increment=$repetition;
 		    $result.= '\end{enumerate}';