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

Diff for /loncom/interface/lonselstudent.pm between versions 1.12 and 1.13

version 1.12, 2008/06/06 19:12:59 version 1.13, 2008/11/04 03:25:53
Line 178  sub get_people_in_class { Line 178  sub get_people_in_class {
 #                     This should be true for the first call for a page  #                     This should be true for the first call for a page
 #                     and false for all other calls... only matters if  #                     and false for all other calls... only matters if
 #                     multiselect is true.  #                     multiselect is true.
   #     $context      - If email, do not include <br /><hr /> tags at the end
   #                     of the data table. 
 #  Returns:  #  Returns:
 #     HTML  text to add to the rendering of the helper.  #     HTML  text to add to the rendering of the helper.
 #  #
 sub render_student_list {  sub render_student_list {
     my ($students, $formname, $formprefix, $defaultusers,      my ($students, $formname, $formprefix, $defaultusers,
  $multiselect, $resultname, $javascript) = @_;   $multiselect, $resultname, $javascript, $context) = @_;
   
     my $result = "";      my $result = "";
   
Line 330  SCRIPT Line 332  SCRIPT
  foreach my $sec (sort {lc($a) cmp lc($b)} (keys(%sections))) {   foreach my $sec (sort {lc($a) cmp lc($b)} (keys(%sections))) {
     $result .= '<option name="'.$sec.'">'.$sec.'</option>'."\n";      $result .= '<option name="'.$sec.'">'.$sec.'</option>'."\n";
  }   }
  $result .= '</td><td valign="top">';   $result .= '</select></td><td valign="top">';
  $result .= '<input type="button" name="'.$formprefix.'.select" value="'.&mt('Select').'" onclick='   $result .= '<input type="button" name="'.$formprefix.'.select" value="'.&mt('Select').'" onclick='
     ."'selectSections(\"$formprefix.chosensections\", \"$formprefix\")'".' /></td>';      ."'selectSections(\"$formprefix.chosensections\", \"$formprefix\")'".' /></td>';
  $result .= '<td valign="top"><input type="button" name="'.$formprefix   $result .= '<td valign="top"><input type="button" name="'.$formprefix
Line 396  SCRIPT Line 398  SCRIPT
         . '</td>'.&Apache::loncommon::end_data_table_row().          . '</td>'.&Apache::loncommon::end_data_table_row().
  "\n";   "\n";
     }      }
     $result .= &Apache::loncommon::end_data_table().      $result .= &Apache::loncommon::end_data_table();
  " <br /> <hr />\n";      if ($context ne 'email') {
    $result .= "<br /> <hr />\n";
       }
   
     return $result;      return $result;
 }  }
Removed from v.1.12  
changed lines
  Added in v.1.13

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