[prev in list] [next in list] [prev in thread] [next in thread]
List: lon-capa-cvs
Subject: [LON-CAPA-cvs] cvs: loncom /interface lonhelper.pm
From: albertel <lon-capa-cvs () mail ! lon-capa ! org>
Date: 2005-09-28 19:02:06
Message-ID: cvsalbertel1127934126 () cvsserver
[Download RAW message or body]
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;
_______________________________________________
LON-CAPA-cvs mailing list
LON-CAPA-cvs@mail.lon-capa.org
http://mail.lon-capa.org/mailman/listinfo/lon-capa-cvs
[prev in list] [next in list] [prev in thread] [next in thread]
Configure |
About |
News |
Add a list |
Sponsored by KoreLogic