|
version 1.158, 2004/12/23 22:53:41
|
version 1.160, 2005/01/10 18:42:21
|
|
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]; |
|
Line 401 sub get_table_sizes {
|
Line 401 sub get_table_sizes {
|
| my $cell_width=0; |
my $cell_width=0; |
| foreach my $member (@$rbubble_values) { |
foreach my $member (@$rbubble_values) { |
| my $cell_width_real=0; |
my $cell_width_real=0; |
| if ($member=~/(\+|-)?(\d*)\.?(\d*)\s*\$\\times\s*10\^{(\+|-)?(\d+)}\$/) { |
if ($member=~/(\+|-)?(\d*)\.?(\d*)\s*\$?\\times\s*10\^{(\+|-)?(\d+)}\$?/) { |
| $cell_width_real=(length($2)+length($3)+length($5)+7)*$scale; |
$cell_width_real=(length($2)+length($3)+length($5)+7)*$scale; |
| } elsif ($member=~/(\d*)\.?(\d*)(E|e)(\+|-)?(\d*)/) { |
} elsif ($member=~/(\d*)\.?(\d*)(E|e)(\+|-)?(\d*)/) { |
| $cell_width_real=(length($1)+length($2)+length($5)+9)*$scale; |
$cell_width_real=(length($1)+length($2)+length($5)+9)*$scale; |
![[BACK]](/icons/back.gif){kind=icon}
Return to caparesponse.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework / caparesponse