[BACK]Return to lonhelper.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonhelper.pm between versions 1.113 and 1.114

version 1.113, 2005/09/28 10:37:33 version 1.114, 2005/09/28 19:02:02
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><input type="radio" name="personstate" value="Active" checked />';
     $section_selectors   .= "         Current Students</td>\n";      $section_selectors   .= "         Current Students</td>\n";
     $section_selectors   .= '    <td><input type="radio" name="personstate" value="All" />';      $section_selectors   .= '    <td><input type="radio" name="personstate" value="All" />';
     $section_selectors   .= "         All students</td>\n";      $section_selectors   .= "         All students</td>\n";
     $section_selectors   .= '    <td><input type="radio" name="personstate" value="Expired" />';      $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   .= "<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;
Removed from v.1.113  
changed lines
  Added in v.1.114

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>