version 1.113, 2005/09/28 10:37:33
|
version 1.115, 2005/09/28 19:03:42
|
Line 2408 BUTTONS
|
Line 2408 BUTTONS
|
# The variable $choice_widget will have the html to make the choice |
# The variable $choice_widget will have the html to make the choice |
# selector. |
# 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)) { |
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 |
# Build a table without any borders to contain the section based |
# selection: |
# 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 .= "<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 .= ' <td><label><input type="radio" name="personstate" value="Active" checked />'; |
$section_selectors .= " Current Students</td>\n"; |
$section_selectors .= " Current Students</label></td>\n"; |
$section_selectors .= ' <td><input type="radio" name="personstate" value="All" />'; |
$section_selectors .= ' <td><label><input type="radio" name="personstate" value="All" />'; |
$section_selectors .= " All students</td>\n"; |
$section_selectors .= " All students</label></td>\n"; |
$section_selectors .= ' <td><input type="radio" name="personstate" value="Expired" />'; |
$section_selectors .= ' <td><label><input type="radio" name="personstate" value="Expired" />'; |
$section_selectors .= " Expired Students</tr>\n"; |
$section_selectors .= " Expired Students</label></td>\n"; |
|
$section_selectors .= "</tr>\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="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 />"; |
$section_selectors .= "<br />"; |
|
|
$result .= $section_selectors; |
$result .= $section_selectors; |