--- loncom/homework/optionresponse.pm 2007/04/05 10:29:58 1.140 +++ loncom/homework/optionresponse.pm 2007/04/16 22:50:41 1.142 @@ -1,7 +1,7 @@ # LearningOnline Network with CAPA # option list style responses # -# $Id: optionresponse.pm,v 1.140 2007/04/05 10:29:58 foxr Exp $ +# $Id: optionresponse.pm,v 1.142 2007/04/16 22:50:41 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -367,11 +367,11 @@ sub setup_prior_tries_hash { my $output; foreach my $name (@$whichopt) { next if (!defined($lastresponse{$name})); - $output .= ''.$lastresponse{$name}.''; + $output .= ''.$lastresponse{$name}.''; } next if (!defined($output)); $output = - ''.$output.'
'; + ''.$output.'
'; $Apache::inputtags::submission_display{$key} = $output; } } @@ -567,20 +567,19 @@ sub bubbles { my $number_of_bubbles = $#opt + 1; my $current_length = 0; my $textwidth; - if ($max_width) { + if (defined($max_width)) { $textwidth=$max_width; - &Apache::lonnet::logthis("Max width passed in: $max_width"); - } - elsif ($env{'form.textwidth'} ne '') { + &Apache::lonxml::debug("Max width passed in: $max_width"); + } elsif ($env{'form.textwidth'} ne '') { $env{'form.textwidth'}=~/(\d+)/; $textwidth=$1; - &Apache::lonnet::logthis("Max width from form: $textwidth"); + &Apache::lonxml::debug("Max width from form: $textwidth"); } else { $env{'form.textwidth'}=~/(\d*)\.?(\d*)/; $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++) { my $leftmargin; $opt[$ind]=&Apache::lonxml::latex_special_symbols($opt[$ind]);