[LON-CAPA-cvs] cvs: loncom /homework optionresponse.pm

albertel lon-capa-cvs-allow@mail.lon-capa.org
Fri, 06 Apr 2007 16:54:49 -0000


albertel		Fri Apr  6 12:54:49 2007 EDT

  Modified files:              
    /loncom/homework	optionresponse.pm 
  Log:
  - style police
  - change the logthis to a debug
  
  
Index: loncom/homework/optionresponse.pm
diff -u loncom/homework/optionresponse.pm:1.140 loncom/homework/optionresponse.pm:1.141
--- loncom/homework/optionresponse.pm:1.140	Thu Apr  5 06:29:58 2007
+++ loncom/homework/optionresponse.pm	Fri Apr  6 12:54:48 2007
@@ -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.141 2007/04/06 16:54:48 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -567,20 +567,19 @@
     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]);