|
version 1.138, 2007/03/01 02:33:28
|
version 1.142, 2007/04/16 22:50:41
|
|
Line 367 sub setup_prior_tries_hash {
|
Line 367 sub setup_prior_tries_hash {
|
| my $output; |
my $output; |
| foreach my $name (@$whichopt) { |
foreach my $name (@$whichopt) { |
| next if (!defined($lastresponse{$name})); |
next if (!defined($lastresponse{$name})); |
| $output .= '<td>'.$lastresponse{$name}.'</td>'; |
$output .= '<tr><td>'.$lastresponse{$name}.'</td></tr>'; |
| } |
} |
| next if (!defined($output)); |
next if (!defined($output)); |
| $output = |
$output = |
| '<table class="LC_optres_prior"><tr>'.$output.'</tr></table>'; |
'<table class="LC_prior_option">'.$output.'</table>'; |
| $Apache::inputtags::submission_display{$key} = $output; |
$Apache::inputtags::submission_display{$key} = $output; |
| } |
} |
| } |
} |
|
Line 444 sub displayfoils {
|
Line 444 sub displayfoils {
|
| } |
} |
| if ($target ne 'tex') { |
if ($target ne 'tex') { |
| if ($Apache::lonhomework::type ne 'exam') { |
if ($Apache::lonhomework::type ne 'exam') { |
| $optionlist='<select name="HWVAL_'. |
$optionlist='<select onchange="javascript:setSubmittedPart(\''. |
| |
$part.'\');" name="HWVAL_'. |
| $Apache::inputtags::response['-1'].':'.$temp.'">'. |
$Apache::inputtags::response['-1'].':'.$temp.'">'. |
| $optionlist."</select>\n"; |
$optionlist."</select>\n"; |
| } else { |
} else { |
|
Line 559 sub webbubbles {
|
Line 560 sub webbubbles {
|
| |
|
| |
|
| sub bubbles { |
sub bubbles { |
| my ($ralphabet,$ropt,$response) = @_; |
my ($ralphabet,$ropt,$response, $max_width) = @_; |
| my @alphabet = @$ralphabet; |
my @alphabet = @$ralphabet; |
| my @opt = @$ropt; |
my @opt = @$ropt; |
| my ($result,$head,$line) =('','',''); |
my ($result,$head,$line) =('','',''); |
| my $number_of_bubbles = $#opt + 1; |
my $number_of_bubbles = $#opt + 1; |
| my $current_length = 0; |
my $current_length = 0; |
| my $textwidth; |
my $textwidth; |
| if ($env{'form.textwidth'} ne '') { |
if (defined($max_width)) { |
| |
$textwidth=$max_width; |
| |
&Apache::lonxml::debug("Max width passed in: $max_width"); |
| |
} elsif ($env{'form.textwidth'} ne '') { |
| $env{'form.textwidth'}=~/(\d+)/; |
$env{'form.textwidth'}=~/(\d+)/; |
| $textwidth=$1; |
$textwidth=$1; |
| |
&Apache::lonxml::debug("Max width from form: $textwidth"); |
| } else { |
} else { |
| $env{'form.textwidth'}=~/(\d*)\.?(\d*)/; |
$env{'form.textwidth'}=~/(\d*)\.?(\d*)/; |
| $textwidth=$1.'.'.$2; |
$textwidth=$1.'.'.$2; |
| |
&Apache::lonxml::debug("Max width defaults? $textwidth"); |
| } |
} |
| |
&Apache::lonxml::debug("Final maxwidth: $textwidth"); |
| for (my $ind=0;$ind<=$number_of_bubbles;$ind++) { |
for (my $ind=0;$ind<=$number_of_bubbles;$ind++) { |
| my $leftmargin; |
my $leftmargin; |
| $opt[$ind]=&Apache::lonxml::latex_special_symbols($opt[$ind]); |
$opt[$ind]=&Apache::lonxml::latex_special_symbols($opt[$ind]); |
| if ($response eq 'rankresponse') {$opt[$ind]='Rank '.$opt[$ind];} |
if ($response eq 'rankresponse') {$opt[$ind]='Rank '.$opt[$ind];} |
| if ($ind==0) {$leftmargin=6;} else {$leftmargin=10;} |
if ($ind==0) {$leftmargin=6;} else {$leftmargin=10;} |
| |
|
| $current_length += (length($opt[$ind])+length($alphabet[$ind])+4)*2; |
$current_length += (length($opt[$ind])+length($alphabet[$ind])+4)*2; |
| if ($current_length<($textwidth-$leftmargin) and $ind!=$number_of_bubbles) { |
if ($current_length<($textwidth-$leftmargin) and $ind!=$number_of_bubbles) { |
| $line.='\hskip -1 mm {\small \textbf{'.$alphabet[$ind].'}}$\bigcirc$\hskip -1 mm & \hskip -3 mm {\small '.$opt[$ind].'} & '; |
$line.='\hskip -1 mm {\small \textbf{'.$alphabet[$ind].'}}$\bigcirc$\hskip -1 mm & \hskip -3 mm {\small '.$opt[$ind].'} & '; |
![[BACK]](/icons/back.gif){kind=icon}
Return to optionresponse.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework