loncom/homework/caparesponse/caparesponse.pm - diff

Return to caparesponse.pm CVS log

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

version 1.158, 2004/12/23 22:53:41	version 1.159, 2005/01/08 06:10:38
Line 270 sub end_numericalresponse {	Line 270 sub end_numericalresponse {
}	}
if ($tag eq 'numericalresponse') {	if ($tag eq 'numericalresponse') {
my ($celllength,$number_of_tables,@table_range)=	my ($celllength,$number_of_tables,@table_range)=
&get_table_sizes($number_of_bubbles,$bubble_values);	&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 -1 mm \noindent \begin{enumerate}\item[\textbf{'.$Apache::lonxml::counter.'}.]';
Line 281 sub end_numericalresponse {	Line 281 sub end_numericalresponse {
}	}
$result.='}';	$result.='}';
for (my $ind=$cou;$ind<$cou+$table_range[$j];$ind++) {	for (my $ind=$cou;$ind<$cou+$table_range[$j];$ind++) {
$result.='\hskip -4 mm {\small \textbf{'.$alphabet[$ind].'}}$\bigcirc$ & \hskip -3 mm {\small '.$bubble_values->[$ind].'} ';	$result.='\hskip -4 mm {\small \textbf{'.$alphabet[$ind].'}}$\bigcirc$ & \hskip -3 mm {\small '.$bubble_display->[$ind].'} ';
if ($ind != $cou+$table_range[$j]-1) {$result.=' & ';}	if ($ind != $cou+$table_range[$j]-1) {$result.=' & ';}
}	}
$cou += $table_range[$j];	$cou += $table_range[$j];