loncom/homework/optionresponse.pm - diff

Return to optionresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.140, 2007/04/05 10:29:58	version 1.141, 2007/04/06 16:54:48
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]);