loncom/homework/caparesponse/caparesponse.pm - diff

Return to caparesponse.pm CVS log

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

version 1.238, 2010/06/05 22:25:22	version 1.239, 2010/08/02 10:52:58
Line 592 sub end_numericalresponse {	Line 592 sub end_numericalresponse {
&get_table_sizes($number_of_bubbles,$bubble_display);	&get_table_sizes($number_of_bubbles,$bubble_display);
my $j=0;	my $j=0;
my $cou=0;	my $cou=0;
$result.='\vskip -1 mm \noindent \begin{enumerate}\item[\textbf{'.$Apache::lonxml::counter.'}.]';	$result.='\vskip 2mm \noindent ';
	$result .= '\textbf{'.$Apache::lonxml::counter.'.} \vskip -3mm ';

for (my $i=0;$i<$number_of_tables;$i++) {	for (my $i=0;$i<$number_of_tables;$i++) {
$result.='\vskip -1 mm \noindent \setlength{\tabcolsep}{2 mm}\begin{tabular}{';	if ($i == 0) {
	$result .= '\vskip -1mm ';
	} else {
	$result .= '\vskip 1mm ';
	}
	$result.='\noindent \setlength{\tabcolsep}{2 mm}\hskip 2pc\begin{tabular}{';
for (my $ind=0;$ind<$table_range[$j];$ind++) {	for (my $ind=0;$ind<$table_range[$j];$ind++) {
$result.='p{3 mm}p{'.$celllength.' mm}';	$result.='p{3 mm}p{'.$celllength.' mm}';
}	}
Line 607 sub end_numericalresponse {	Line 614 sub end_numericalresponse {
$j++;	$j++;
$result.='\\\\\end{tabular}\vskip 0 mm ';	$result.='\\\\\end{tabular}\vskip 0 mm ';
}	}
$result.='\end{enumerate}';
} else {	} else {
$increment = &Apache::response::repetition();	$increment = &Apache::response::repetition();
}	}