|
version 1.249.8.1, 2012/01/20 10:12:09
|
version 1.252, 2012/03/05 11:50:39
|
|
Line 1
|
Line 1
|
| # The LearningOnline Network with CAPA |
# The LearningOnline Network with CAPA |
| # caparesponse definition |
# caparesponse definition |
| # |
# |
| # $Id$ |
# caparesponse.pm,v 1.249.8.2 2012/02/04 20:40:15 foxr |
| # |
# |
| # Copyright Michigan State University Board of Trustees |
# Copyright Michigan State University Board of Trustees |
| # |
# |
|
Line 296 sub start_numericalresponse {
|
Line 296 sub start_numericalresponse {
|
| } elsif ($token->[1] eq 'formularesponse') { |
} elsif ($token->[1] eq 'formularesponse') { |
| $constructtag=&Apache::edit::get_new_args($token,$parstack, |
$constructtag=&Apache::edit::get_new_args($token,$parstack, |
| $safeeval,'answer', |
$safeeval,'answer', |
| 'samples','preproces'); |
'samples','preprocess'); |
| } |
} |
| if ($constructtag) { |
if ($constructtag) { |
| $result = &Apache::edit::rebuild_tag($token); |
$result = &Apache::edit::rebuild_tag($token); |
|
Line 895 sub get_table_sizes {
|
Line 895 sub get_table_sizes {
|
| my ($number_of_bubbles,$rbubble_values)=@_; |
my ($number_of_bubbles,$rbubble_values)=@_; |
| my $scale=2; #mm for one digit |
my $scale=2; #mm for one digit |
| my $cell_width=0; |
my $cell_width=0; |
| &Apache::lonnet::logthis("textwidth envvar: " . $env{'form.textwidth'}); |
|
| 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+)}\$?/) { |
|
Line 971 sub make_numerical_bubbles {
|
Line 970 sub make_numerical_bubbles {
|
| my $number_of_bubbles = |
my $number_of_bubbles = |
| &Apache::response::get_response_param($part.'_'.$id,'numbubbles',8); |
&Apache::response::get_response_param($part.'_'.$id,'numbubbles',8); |
| |
|
| |
# |
| |
# Fixes for BZ 6519 - number of bubbles <= 0 or non-integer. |
| |
# |
| |
$number_of_bubbles = int($number_of_bubbles + 0.5); |
| |
if ($number_of_bubbles <= 0) { |
| |
$number_of_bubbles = 8; |
| |
} |
| |
|
| |
|
| my ($format)=&Apache::lonxml::get_param_var('format',$parstack,$safeeval); |
my ($format)=&Apache::lonxml::get_param_var('format',$parstack,$safeeval); |
| my $name = (exists($answer{$tag_internal_answer_name}) |
my $name = (exists($answer{$tag_internal_answer_name}) |
| ? $tag_internal_answer_name |
? $tag_internal_answer_name |
|
Line 1098 sub make_horizontal_latex_bubbles {
|
Line 1106 sub make_horizontal_latex_bubbles {
|
| } |
} |
| $result.='\noindent \setlength{\tabcolsep}{2 mm}\hskip 2pc\begin{tabular}{'; |
$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{4 mm}p{'.$celllength.' mm}'; |
| } |
} |
| $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].'}}' |
$result.='\hskip -4 mm {\small \textbf{ '.$alphabet[$ind].'}}' |
| . $bubble_fragment |
. $bubble_fragment |
| . '& \hskip -3 mm {\small '.$bubble_display->[$ind].'} '; |
. '& \hskip -3 mm {\small '.$bubble_display->[$ind].'} '; |
| if ($ind != $cou+$table_range[$j]-1) { |
if ($ind != $cou+$table_range[$j]-1) { |
![[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