version 1.140, 2007/04/05 10:29:58
|
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 567 sub bubbles {
|
Line 567 sub bubbles {
|
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 ($max_width) { |
if (defined($max_width)) { |
$textwidth=$max_width; |
$textwidth=$max_width; |
&Apache::lonnet::logthis("Max width passed in: $max_width"); |
&Apache::lonxml::debug("Max width passed in: $max_width"); |
} |
} elsif ($env{'form.textwidth'} ne '') { |
elsif ($env{'form.textwidth'} ne '') { |
|
$env{'form.textwidth'}=~/(\d+)/; |
$env{'form.textwidth'}=~/(\d+)/; |
$textwidth=$1; |
$textwidth=$1; |
&Apache::lonnet::logthis("Max width from form: $textwidth"); |
&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::lonnet::logthis("Max width defaults? $textwidth"); |
&Apache::lonxml::debug("Max width defaults? $textwidth"); |
} |
} |
&Apache::lonnet::logthis("Final maxwidth: $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]); |