[LON-CAPA-cvs] cvs: loncom /interface lonhelper.pm

[albertel]

albertel		Wed Sep 28 15:02:06 2005 EDT

  Modified files:              
    /loncom/interface	lonhelper.pm 
  Log:
  - correcting the html
  - xhtmlize
  
  
Index: loncom/interface/lonhelper.pm
diff -u loncom/interface/lonhelper.pm:1.113 loncom/interface/lonhelper.pm:1.114
--- loncom/interface/lonhelper.pm:1.113	Wed Sep 28 06:37:33 2005
+++ loncom/interface/lonhelper.pm	Wed Sep 28 15:02:02 2005
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # .helper XML handler to implement the LON-CAPA helper
 #
-# $Id: lonhelper.pm,v 1.113 2005/09/28 10:37:33 foxr Exp $
+# $Id: lonhelper.pm,v 1.114 2005/09/28 19:02:02 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2408,26 +2408,27 @@
     #  The variable $choice_widget will have the html to make the choice 
     #  selector.
 
-    my $choice_widget = '<SELECT multiple name="chosensections" size="5">'."\n";
+    my $choice_widget = '<select multiple name="chosensections" size="5">'."\n";
     foreach my $sec (sort (keys %sections)) {
-	$choice_widget .= "<OPTION name=\"$sec\">$sec</OPTION>\n";
+	$choice_widget .= "<option name=\"$sec\">$sec</option>\n";
     }
-    $choice_widget .= "<OPTION>Staff</OPTION></SELECT>\n";
+    $choice_widget .= "<option>Staff</option></select>\n";
 
     # Build a table without any borders to contain the section based
     # selection:
 
-    my $section_selectors = '<TABLE border="0">'."\n";
+    my $section_selectors = '<table border="0">'."\n";
     $section_selectors   .= "<tr valign=\"top\">\n<td>For Sections:</td><td>$choice_widget</td>\n";
     $section_selectors   .= '    <td><input type="radio" name="personstate" value="Active" checked />';
     $section_selectors   .= "         Current Students</td>\n";
     $section_selectors   .= '    <td><input type="radio" name="personstate" value="All" />';
     $section_selectors   .= "         All students</td>\n";
     $section_selectors   .= '    <td><input type="radio" name="personstate" value="Expired" />';
-    $section_selectors   .= "          Expired Students</tr>\n";
+    $section_selectors   .= "          Expired Students</td>\n";
+    $section_selectors   .= "</tr>\n";
     $section_selectors   .= "<tr>\n";
     $section_selectors   .= '    <td><input type="button" value="Select" onclick="checksections(true);" /></td>'."\n";
-    $section_selectors   .= '    <td><input type="button" value="Unselect" onclick="checksections(false);" /></td>'."\n</TABLE>\n";
+    $section_selectors   .= '    <td><input type="button" value="Unselect" onclick="checksections(false);" /></td></tr>'."\n</table>\n";
     $section_selectors   .= "<br />";
 
     $result .= $section_selectors;