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

[albertel]

albertel		Wed Mar  8 20:04:44 2006 EDT

  Modified files:              
    /loncom/homework	optionresponse.pm 
  Log:
  - xhtml
  
  
Index: loncom/homework/optionresponse.pm
diff -u loncom/homework/optionresponse.pm:1.132 loncom/homework/optionresponse.pm:1.133
--- loncom/homework/optionresponse.pm:1.132	Mon Feb  6 16:59:23 2006
+++ loncom/homework/optionresponse.pm	Wed Mar  8 20:04:43 2006
@@ -1,7 +1,7 @@
 # LearningOnline Network with CAPA
 # option list style responses
 #
-# $Id: optionresponse.pm,v 1.132 2006/02/06 21:59:23 albertel Exp $
+# $Id: optionresponse.pm,v 1.133 2006/03/09 01:04:43 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -414,7 +414,7 @@
       foreach my $option (@opt) {
 	  my $escopt=&HTML::Entities::encode($option,'\'"&<>');
 	  if ($option eq $lastopt) {
-	      $optionlist.="<option value='".$escopt."' selected=\"on\">$option</option>\n";
+	      $optionlist.="<option value='".$escopt."' selected=\"selected\">$option</option>\n";
 	  } else {
 	      $optionlist.="<option value='".$escopt."'>$option</option>\n";
 	  }