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

Diff for /loncom/interface/lonhelper.pm between versions 1.139 and 1.140

version 1.139, 2006/05/05 10:59:51 version 1.140, 2006/05/05 14:35:44
Line 2308  sub render_student_list { Line 2308  sub render_student_list {
     if ($multiselect) {      if ($multiselect) {
  $result .= '<table><tr><td>';   $result .= '<table><tr><td>';
   
  my $size = scalar(keys %$sections);   my $size = scalar(keys(%$sections));
  $size += 3; # We have allstudents allpersonel nosection too.   $size += 3; # We have allstudents allpersonel nosection too.
  if ($size > 5) {    if ($size > 5) { 
     $size = 5;       $size = 5; 
Line 2323  sub render_student_list { Line 2323  sub render_student_list {
     $result .= '<option name="'.$sec.'">'.$sec.'</option>'."\n";      $result .= '<option name="'.$sec.'">'.$sec.'</option>'."\n";
  }   }
  $result .= '</td><td valign="top">';   $result .= '</td><td valign="top">';
  $result .= '<input type="button" name="'.$formprefix.'.select" value="Select" onClick='   $result .= '<input type="button" name="'.$formprefix.'.select" value="Select" onclick='
     ."'selectSections(\"$formprefix.chosensections\")'".' /></td>';      ."'selectSections(\"$formprefix.chosensections\")'".' /></td>';
  $result .= '<td valign="top"><input type="button" name="'.$formprefix   $result .= '<td valign="top"><input type="button" name="'.$formprefix
     .'.unselect" value="Unselect"  onClick='.      .'.unselect" value="Unselect"  onclick='.
     "'unselectSections(\"$formprefix.chosensections\")' ".' /></td></tr></table>';      "'unselectSections(\"$formprefix.chosensections\")' ".' /></td></tr></table>';
     }      }
   
Line 2776  BUTTONS Line 2776  BUTTONS
     #      #
     if (!$self->{'activeonly'} && ((scalar @$expired_members) > 0)) {      if (!$self->{'activeonly'} && ((scalar @$expired_members) > 0)) {
   
  # Past   
   
  $result .= $self->render_student_list(\%sections,  
       $expired_members,  
       "past",  
       \%defaultUsers);  
   
  # And future.   # And future.
   
  $result .= $self->render_student_list(\%sections,   $result .= $self->render_student_list(\%sections,
       $future_members,        $future_members,
       "future",        "future",
       \%defaultUsers);        \%defaultUsers);
    # Past 
   
    $result .= $self->render_student_list(\%sections,
         $expired_members,
         "past",
         \%defaultUsers);
     }      }
   
   
Removed from v.1.139  
changed lines
  Added in v.1.140

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