loncom/homework/caparesponse/caparesponse.pm - diff

Return to caparesponse.pm CVS log

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

version 1.92, 2003/04/08 04:17:13	version 1.93, 2003/04/18 07:12:13
Line 242 sub end_numericalresponse {	Line 242 sub end_numericalresponse {
$result.='\end{enumerate}';	$result.='\end{enumerate}';
} else {	} else {
$result.='\fbox{\fbox{\parbox{\textwidth-5mm}{\strut\\\\\strut\\\\\strut\\\\\strut\\\\}}}';	$result.='\fbox{\fbox{\parbox{\textwidth-5mm}{\strut\\\\\strut\\\\\strut\\\\\strut\\\\}}}';
my $id = $Apache::inputtags::part;	my $repetition = &Apache::response::repetition();
my $weight = &Apache::lonnet::EXT("resource.$id.weight");
my $repetition = int $weight/9;
if ($weight % 9 != 0) {$repetition++;}
$result.='\begin{enumerate}';	$result.='\begin{enumerate}';
for (my $i=0;$i<$repetition;$i++) {	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;	$increment=$repetition;
$result.= '\end{enumerate}';	$result.= '\end{enumerate}';