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

Diff for /loncom/interface/Attic/londropadd.pm between versions 1.106 and 1.114

version 1.106, 2004/03/01 16:34:54 version 1.114, 2004/06/17 18:31:24
Line 37  use Apache::loncommon(); Line 37  use Apache::loncommon();
 use Apache::lonhtmlcommon();  use Apache::lonhtmlcommon();
 use Apache::Constants qw(:common :http REDIRECT);  use Apache::Constants qw(:common :http REDIRECT);
 use Spreadsheet::WriteExcel;  use Spreadsheet::WriteExcel;
   use Apache::lonstathelpers();
 use Apache::lonlocal;  use Apache::lonlocal;
   
 ###############################################################  ###############################################################
Line 172  sub print_main_menu { Line 173  sub print_main_menu {
     <a href="/adm/dropadd?action=drop">$Text{'drop'}</a>      <a href="/adm/dropadd?action=drop">$Text{'drop'}</a>
     </font>$help{'Course_Drop_Student'}      </font>$help{'Course_Drop_Student'}
 </p><p>  </p><p>
   END
       my ($cdom,$cnum) = split/_/,$ENV{'request.course.id'};
       if (&Apache::lonnet::auto_run($cnum,$cdom) ) {
           $r->print(<<END);
 <font size="+1">  <font size="+1">
     <a href="/adm/populate">$Text{'populate'}</a>      <a href="/adm/populate">$Text{'populate'}</a>
 </font>  </font>
 END  END
       }
 }  }
   
 ###############################################################  ###############################################################
Line 699  sub enroll_single_student { Line 705  sub enroll_single_student {
     $ENV{'form.csec'}=~s/\W//g;      $ENV{'form.csec'}=~s/\W//g;
     #      #
     # We do the dates first because the action of making them the defaul      # We do the dates first because the action of making them the defaul
     # in the course is entirely seperate from the action of enrolling the      # in the course is entirely separate from the action of enrolling the
     # student.  Also, a failure in setting the dates as default is not fatal      # student.  Also, a failure in setting the dates as default is not fatal
     # to the process of enrolling / modifying a student.      # to the process of enrolling / modifying a student.
     my ($startdate,$enddate) = &get_dates_from_form();      my ($startdate,$enddate) = &get_dates_from_form();
Line 780  sub setup_date_selectors { Line 786  sub setup_date_selectors {
     my ($starttime,$endtime,$mode) = @_;      my ($starttime,$endtime,$mode) = @_;
     if (! defined($starttime)) {      if (! defined($starttime)) {
         $starttime = time;          $starttime = time;
         unless ($mode eq 'createcourse') {          unless ($mode eq 'create_enrolldates' || $mode eq 'create_defaultdates') {
             if (exists($ENV{'course.'.$ENV{'request.course.id'}.              if (exists($ENV{'course.'.$ENV{'request.course.id'}.
                             '.default_enrollment_start_date'})) {                              '.default_enrollment_start_date'})) {
                 $starttime = $ENV{'course.'.$ENV{'request.course.id'}.                  $starttime = $ENV{'course.'.$ENV{'request.course.id'}.
Line 804  sub setup_date_selectors { Line 810  sub setup_date_selectors {
     my $enddateform = &Apache::lonhtmlcommon::date_setter('studentform',      my $enddateform = &Apache::lonhtmlcommon::date_setter('studentform',
                                                           'enddate',                                                            'enddate',
                                                           $endtime);                                                            $endtime);
     if ($mode eq 'createcourse') {      if ($mode eq 'create_enrolldates') {
         $startdateform = &Apache::lonhtmlcommon::date_setter('ccrs',          $startdateform = &Apache::lonhtmlcommon::date_setter('ccrs',
                                                             'startdate',                                                              'startenroll',
                                                             $starttime);                                                              $starttime);
         $enddateform = &Apache::lonhtmlcommon::date_setter('ccrs',          $enddateform = &Apache::lonhtmlcommon::date_setter('ccrs',
                                                           'enddate',                                                            'endenroll',
                                                             $endtime);
       }
       if ($mode eq 'create_defaultdates') {
           $startdateform = &Apache::lonhtmlcommon::date_setter('ccrs',
                                                               'startaccess',
                                                               $starttime);
           $enddateform = &Apache::lonhtmlcommon::date_setter('ccrs',
                                                             'endaccess',
                                                           $endtime);                                                            $endtime);
     }      }
     return ($startdateform,$enddateform);      return ($startdateform,$enddateform);
Line 830  sub date_setting_table { Line 844  sub date_setting_table {
     my $dateDefault = '<nobr>'.      my $dateDefault = '<nobr>'.
         '<input type="checkbox" name="makedatesdefault" /> '.          '<input type="checkbox" name="makedatesdefault" /> '.
         &mt('make these dates the default for future enrollment');          &mt('make these dates the default for future enrollment');
     if ($mode eq 'createcourse') {      if ($mode eq 'create_enrolldates' || $mode eq 'create_defaultdates') {
         $dateDefault = '&nbsp;';          $dateDefault = '&nbsp;';
     }      }
     my $perpetual = '<nobr><input type="checkbox" name="no_end_date"';      my $perpetual = '<nobr><input type="checkbox" name="no_end_date"';
Line 838  sub date_setting_table { Line 852  sub date_setting_table {
         $perpetual .= ' checked';          $perpetual .= ' checked';
     }      }
     $perpetual.= ' /> '.&mt('no ending date').'</nobr>';      $perpetual.= ' /> '.&mt('no ending date').'</nobr>';
       if ($mode eq 'create_enrolldates') {
           $perpetual = '&nbsp;';
       }
     my $result = '';      my $result = '';
     $result .= "<table>\n";      $result .= "<table>\n";
     $result .= '<tr><td align="right">'.&mt('Starting Date').'</td>'.      $result .= '<tr><td align="right">'.&mt('Starting Date').'</td>'.
Line 1115  sub print_html_classlist { Line 1132  sub print_html_classlist {
     #      #
     # List course personnel      # List course personnel
     my %coursepersonnel=&Apache::lonnet::get_course_adv_roles($cdom.'/'.$cnum);      my %coursepersonnel=&Apache::lonnet::get_course_adv_roles($cdom.'/'.$cnum);
       #
       if (! defined($ENV{'form.output'}) ||
           $ENV{'form.output'} !~ /^(csv|excel|html)$/ ) {
           $ENV{'form.output'} = 'html';
       }
       #
     $r->print('<br /><table border="2">');      $r->print('<br /><table border="2">');
     foreach (sort keys %coursepersonnel) {      foreach my $role (sort keys %coursepersonnel) {
  $r->print('<tr><td>'.$_.'</td><td>');          next if ($role =~ /^\s*$/);
         foreach (split(/\,/,$coursepersonnel{$_})) {   $r->print('<tr><td>'.$role.'</td><td>');
     my ($puname,$pudom)=split(/\:/,$_);          foreach my $user (split(',',$coursepersonnel{$role})) {
       my ($puname,$pudom)=split(':',$user);
     $r->print(' '.&Apache::loncommon::aboutmewrapper(      $r->print(' '.&Apache::loncommon::aboutmewrapper(
                           &Apache::loncommon::plainname($puname,                                      &Apache::loncommon::plainname($puname,
                           $pudom),$puname,$pudom));                                                                    $pudom),
                                                                $puname,$pudom));
  }   }
         $r->print('</td></tr>');          $r->print('</td></tr>');
     }      }
     $r->print('</table>');      $r->print('</table>');
     #      #
     # Interface output      # Interface output
     my $CCL=&mt('Current Class List');  
     $r->print('<input type="hidden" name="action" value="'.      $r->print('<input type="hidden" name="action" value="'.
               $ENV{'form.action'}.'" />');                $ENV{'form.action'}.'" />');
     $r->print("<p>\n");      $r->print("<p>\n");
Line 1137  sub print_html_classlist { Line 1161  sub print_html_classlist {
  my %lt=&Apache::lonlocal::texthash('csv' => "CSV",   my %lt=&Apache::lonlocal::texthash('csv' => "CSV",
                                            'excel' => "Excel",                                             'excel' => "Excel",
                                            'html'  => 'HTML');                                             'html'  => 'HTML');
         $r->print('<font size="+1">');          my $output_selector = '<select size="1" name="output" >';
         my $output_selector = '<select size="1" name="state" >';  
         if ($ENV{'form.state'} !~ /^(csv|excel|html)$/ ) {  
             $ENV{'form.state'} = 'html';  
         }  
         foreach my $outputformat ('html','csv','excel') {          foreach my $outputformat ('html','csv','excel') {
             my $option = '<option value="'.$outputformat.'" ';              my $option = '<option value="'.$outputformat.'" ';
             if ($outputformat eq $ENV{'form.state'}) {              if ($outputformat eq $ENV{'form.output'}) {
                 $option .= 'selected ';                  $option .= 'selected ';
             }              }
             $option .='>'.$lt{$outputformat}.'</option>';              $option .='>'.$lt{$outputformat}.'</option>';
Line 1156  sub print_html_classlist { Line 1176  sub print_html_classlist {
     $r->print(&mt('Student Status: [_1]',$status_select)."\n");      $r->print(&mt('Student Status: [_1]',$status_select)."\n");
     $r->print('<input type="submit" value="'.&mt('Update Display').'" />'.      $r->print('<input type="submit" value="'.&mt('Update Display').'" />'.
               "\n</p>\n");                "\n</p>\n");
   
     #      #
     # Print the classlist      # Print the classlist
     $r->print('<h2>'.&mt('Current Class List').'</h2>');      $r->print('<h2>'.&mt('Current Class List').'</h2>');
Line 1166  sub print_html_classlist { Line 1185  sub print_html_classlist {
     } else {      } else {
         # Print out the available choices          # Print out the available choices
         if ($ENV{'form.action'} eq 'modifystudent') {          if ($ENV{'form.action'} eq 'modifystudent') {
             &show_class_list($r,'view','modify','modifystudent',              &show_class_list($r,'view','modify',
                              $ENV{'form.Status'},$classlist,$keylist);  
         } elsif (! defined($mode) || $mode eq '') {  
             &show_class_list($r,'view','aboutme','classlist',  
                              $ENV{'form.Status'},$classlist,$keylist);                               $ENV{'form.Status'},$classlist,$keylist);
         } elsif ($mode eq 'csv' || $mode eq 'excel') {          } else {
             &show_class_list($r,$mode,'nolink','csv',              &show_class_list($r,$ENV{'form.output'},'aboutme',
                              $ENV{'form.Status'},$classlist,$keylist);                               $ENV{'form.Status'},$classlist,$keylist);
         }          }
     }      }
Line 1180  sub print_html_classlist { Line 1196  sub print_html_classlist {
   
 # =================================================== Show student list to drop  # =================================================== Show student list to drop
 sub show_class_list {  sub show_class_list {
     my ($r,$mode,$linkto,$action,$statusmode,$classlist,$keylist)=@_;      my ($r,$mode,$linkto,$statusmode,$classlist,$keylist)=@_;
     my $cid=$ENV{'request.course.id'};      my $cid=$ENV{'request.course.id'};
     #      #
     # Variables for excel output      # Variables for excel output
Line 1190  sub show_class_list { Line 1206  sub show_class_list {
     my ($CSVfile,$CSVfilename);      my ($CSVfile,$CSVfilename);
     #      #
     my $sortby = $ENV{'form.sortby'};      my $sortby = $ENV{'form.sortby'};
     if ($sortby !~ /^(username|domain|section|fullname|id)$/) {      if ($sortby !~ /^(username|domain|section|fullname|id|start|end|type)$/) {
         $sortby = 'username';          $sortby = 'username';
     }      }
     # Print out header       # Print out header 
       unless ($mode eq 'autoenroll') {
           $r->print(<<END);
   <input type="hidden" name="state" value="$ENV{'form.state'}" />
   END
       }
     $r->print(<<END);      $r->print(<<END);
 <input type="hidden" name="sortby" value="$sortby" />  <input type="hidden" name="sortby" value="$sortby" />
 <input type="hidden" name="sname"  value="" />  
 <input type="hidden" name="sdom"   value="" />  
 END  END
     if ($mode eq 'view') {      if ($mode eq 'html' || $mode eq 'view' || $mode eq 'autoenroll') {
         if ($linkto eq 'aboutme') {          if ($linkto eq 'aboutme') {
             $r->print(&mt('Select a user name to view the users personal page.'));              $r->print(&mt('Select a user name to view the users personal page.'));
         } elsif ($linkto eq 'modify') {          } elsif ($linkto eq 'modify') {
             $r->print(&mt('Select a user name to modify the students information'));              $r->print(&mt('Select a user name to modify the students information'));
         }          }
  my %lt=&Apache::lonlocal::texthash(   my %lt=&Apache::lonlocal::texthash(
                'usrn'   => "username",                                             'usrn'   => "username",
                        'dom'    => "domain",                                             'dom'    => "domain",
                        'sn'     => "student name",                                             'sn'     => "student name",
                        'sec'    => "section",                                             'sec'    => "section",
                                              'start'  => "start date",
                                              'end'    => "end date",
                                              'type'   => "enroll type",
                                              'chan'   => "change"
    );     );
         $r->print(<<END);          unless ($mode eq 'autoenroll') {
               $r->print(<<END);
 <input type="hidden" name="sortby" value="$sortby" />  
 <input type="hidden" name="sname"  value="" />  <input type="hidden" name="sname"  value="" />
 <input type="hidden" name="sdom"   value="" />  <input type="hidden" name="sdom"   value="" />
   END
           }
           $r->print(<<END);
 <p>  <p>
 <table border=2>  <table border=2>
 <tr><th>  <tr><th>Count
       </th><th>
        <a href="javascript:document.studentform.sortby.value='username';document.studentform.submit();">$lt{'usrn'}</a>         <a href="javascript:document.studentform.sortby.value='username';document.studentform.submit();">$lt{'usrn'}</a>
     </th><th>      </th><th>
        <a href="javascript:document.studentform.sortby.value='domain';document.studentform.submit();">$lt{'dom'}</a>         <a href="javascript:document.studentform.sortby.value='domain';document.studentform.submit();">$lt{'dom'}</a>
Line 1228  END Line 1254  END
        <a href="javascript:document.studentform.sortby.value='fullname';document.studentform.submit();">$lt{'sn'}</a>         <a href="javascript:document.studentform.sortby.value='fullname';document.studentform.submit();">$lt{'sn'}</a>
     </th><th>      </th><th>
        <a href="javascript:document.studentform.sortby.value='section';document.studentform.submit();">$lt{'sec'}</a>         <a href="javascript:document.studentform.sortby.value='section';document.studentform.submit();">$lt{'sec'}</a>
       </th><th>
          <a href="javascript:document.studentform.sortby.value='start';document.studentform.submit();">$lt{'start'}</a>
       </th><th>
          <a href="javascript:document.studentform.sortby.value='end';document.studentform.submit();">$lt{'end'}</a>
     </th>      </th>
 </tr>  
 END  END
           if ($mode eq 'autoenroll') {
               $r->print("   <th>
          <a href=\"javascript:document.studentform.sortby.value='type';document.studentform.submit();\">$lt{'type'}</a>
       </th><th>
            $lt{'chan'}?</th>");
           }
           $r->print("
      </tr>
           ");
     } elsif ($mode eq 'csv') {      } elsif ($mode eq 'csv') {
  #   #
  # Open a file   # Open a file
Line 1253  END Line 1291  END
             print $CSVfile '"'.join('","',map {              print $CSVfile '"'.join('","',map {
  &Apache::loncommon::csv_translate(&mt($_))   &Apache::loncommon::csv_translate(&mt($_))
                 } ("username","domain","ID","student name",                  } ("username","domain","ID","student name",
                    "section","status")).'"'."\n";                     "section","start date","end date","status")).'"'."\n";
         } else {          } else {
             print $CSVfile '"'.join('","',map {              print $CSVfile '"'.join('","',map {
  &Apache::loncommon::csv_translate(&mt($_))   &Apache::loncommon::csv_translate(&mt($_))
                 } ("username","domain","ID","student name",                  } ("username","domain","ID","student name",
                    "section")).'"'."\n";                     "section","start date","end date")).'"'."\n";
         }          }
     } elsif ($mode eq 'excel') {      } elsif ($mode eq 'excel') {
         # Create the excel spreadsheet          # Create the excel spreadsheet
Line 1277  END Line 1315  END
         $excel_sheet->write($row++,0,$description,$format->{'h1'});          $excel_sheet->write($row++,0,$description,$format->{'h1'});
         #          #
         $excel_sheet->write($row++,0,["username","domain","ID",          $excel_sheet->write($row++,0,["username","domain","ID",
                                       "student name","section","status"],$format->{'bold'});                                        "student name","section",
                                         "start date","end date","status"],
                               $format->{'bold'});
     }      }
     #      #
     # Sort the students      # Sort the students
Line 1296  END Line 1336  END
             ||              ||
         lc($classlist->{$a}->[$third]) cmp lc($classlist->{$b}->[$third])          lc($classlist->{$a}->[$third]) cmp lc($classlist->{$b}->[$third])
         } (keys(%$classlist));          } (keys(%$classlist));
       my $studentcount = 0;
     foreach my $student (@Sorted_Students) {      foreach my $student (@Sorted_Students) {
         my $username = $classlist->{$student}->[$index{'username'}];          my $sdata = $classlist->{$student};
         my $domain   = $classlist->{$student}->[$index{'domain'}];          my $username = $sdata->[$index{'username'}];
         my $section  = $classlist->{$student}->[$index{'section'}];          my $domain   = $sdata->[$index{'domain'}];
         my $name     = $classlist->{$student}->[$index{'fullname'}];          my $section  = $sdata->[$index{'section'}];
         my $id       = $classlist->{$student}->[$index{'id'}];          my $name     = $sdata->[$index{'fullname'}];
         my $status   = $classlist->{$student}->[$index{'status'}];          my $id       = $sdata->[$index{'id'}];
           my $status   = $sdata->[$index{'status'}];
           my $start    = $sdata->[$index{'start'}];
           my $end      = $sdata->[$index{'end'}];
           my $type     = $sdata->[$index{'type'}]; 
         next if (($statusmode ne 'Any') && ($status ne $statusmode));          next if (($statusmode ne 'Any') && ($status ne $statusmode));
         if ($mode eq 'view') {          if ($mode eq 'view' || $mode eq 'html' || $mode eq 'autoenroll') {
             $r->print("<tr>\n    <td>\n        ");              if (! defined($start) || $start == 0) {
                   $start = &mt('none');
               } else {
                   $start = &Apache::lonlocal::locallocaltime($start);
               }
               if (! defined($end) || $end == 0) {
                   $end = &mt('none');
               } else {
                   $end = &Apache::lonlocal::locallocaltime($end);
               }
               $r->print("<tr>\n    <td>".(++$studentcount)."</td><td>\n    ");
             if ($linkto eq 'nothing') {              if ($linkto eq 'nothing') {
                 $r->print($username);                  $r->print($username);
             } elsif ($linkto eq 'aboutme') {              } elsif ($linkto eq 'aboutme') {
Line 1327  END Line 1382  END
     <td>$id</td>      <td>$id</td>
     <td>$name</td>      <td>$name</td>
     <td>$section</td>      <td>$section</td>
 </tr>      <td>$start</td>
       <td>$end</td>
 END  END
               if ($mode eq 'autoenroll') {
                   my $longtype = &mt('manual').'&nbsp';
                   if ($type eq 'auto') {
                       $longtype = &mt('auto').'&nbsp';
                   }
                   $r->print("<td><b>$longtype</b></td><td><input type=\"checkbox\" name=\"switch:$username:$domain\" /></td>");
               }
               $r->print("
   </tr>
               ");
         } elsif ($mode eq 'csv') {          } elsif ($mode eq 'csv') {
             next if (! defined($CSVfile));              next if (! defined($CSVfile));
             # no need to bother with $linkto              # no need to bother with $linkto
               if (! defined($start) || $start == 0) {
                   $start = &mt('none');
               } else {
                   $start = &Apache::lonlocal::locallocaltime($start);
               }
               if (! defined($end) || $end == 0) {
                   $end = &mt('none');
               } else {
                   $end = &Apache::lonlocal::locallocaltime($end);
               }
             my @line = ();              my @line = ();
             foreach ($username,$domain,$id,$name,$section) {              foreach ($username,$domain,$id,$name,$section,$start,$end) {
                 push @line,&Apache::loncommon::csv_translate($_);                  push @line,&Apache::loncommon::csv_translate($_);
             }              }
             if ($statusmode eq 'Any') {              if ($statusmode eq 'Any') {
Line 1341  END Line 1417  END
             }              }
             print $CSVfile '"'.join('","',@line).'"'."\n";              print $CSVfile '"'.join('","',@line).'"'."\n";
         } elsif ($mode eq 'excel') {          } elsif ($mode eq 'excel') {
             $excel_sheet->write($row++,0,[$username,$domain,$id,              $excel_sheet->write($row,0,[$username,$domain,$id,
                                           $name,$section,$status]);                                            $name,$section]);
               my $col = 5;
               foreach my $time ($start,$end) {
                   $excel_sheet->write($row,$col++,
                                      &Apache::lonstathelpers::calc_serial($time),
                                       $format->{'date'});
               }
               $excel_sheet->write($row,$col++,$status);
               $row++;
         }          }
     }      }
     if ($mode eq 'view') {      if ($mode eq 'view' || $mode eq 'html' || $mode eq 'autoenroll') {
         $r->print('</table><br>');          $r->print('</table><br>');
     } elsif ($mode eq 'excel') {      } elsif ($mode eq 'excel') {
         $excel_workbook->close();          $excel_workbook->close();
Line 1358  END Line 1442  END
                   "\n");                    "\n");
         $r->rflush();          $r->rflush();
     }      }
       if ($mode eq 'autoenroll') {
           return $studentcount;
       }
 }  }
   
   
Line 1692  sub show_drop_list { Line 1779  sub show_drop_list {
                                                 ['sortby']);                                                  ['sortby']);
     }      }
     my $sortby = $ENV{'form.sortby'};      my $sortby = $ENV{'form.sortby'};
     if ($sortby !~ /^(username|domain|section|fullname|id)$/) {      if ($sortby !~ /^(username|domain|section|fullname|id|start|end)$/) {
         $sortby = 'username';          $sortby = 'username';
     }      }
     #      #
Line 1716  function uncheckAll(field) { Line 1803  function uncheckAll(field) {
 <input type="hidden" name="phase" value="four">  <input type="hidden" name="phase" value="four">
 END  END
   
   my %lt=&Apache::lonlocal::texthash('usrn'   => "username",
                                      'dom'    => "domain",
                                      'sn'     => "student name",
                                      'sec'    => "section",
                                      'start'  => "start date",
                                      'end'    => "end date",
                                      );
     if ($nosort) {      if ($nosort) {
  my %lt=&Apache::lonlocal::texthash(  
                'usrn'   => "username",  
                        'dom'    => "domain",  
                        'sn'     => "student name",  
                        'sec'    => "section",  
    );  
         $r->print(<<END);          $r->print(<<END);
 <table border=2>  <table border=2>
 <tr>  <tr>
Line 1732  END Line 1820  END
     <th>ID</th>      <th>ID</th>
     <th>$lt{'sn'}</th>      <th>$lt{'sn'}</th>
     <th>$lt{'sec'}</th>      <th>$lt{'sec'}</th>
       <th>$lt{'start'}</th>
       <th>$lt{'end'}</th>
 </tr>  </tr>
 END  END
   
     } else  {      } else  {
  my %lt=&Apache::lonlocal::texthash(  
                'usrn'   => "username",  
                        'dom'    => "domain",  
                        'sn'     => "student name",  
                        'sec'    => "section",  
    );  
         $r->print(<<END);          $r->print(<<END);
 <table border=2>  <table border=2>
 <tr><th>&nbsp;</th>  <tr><th>&nbsp;</th>
Line 1755  END Line 1839  END
        <a href="/adm/dropadd?action=$action&sortby=fullname">$lt{'sn'}</a>         <a href="/adm/dropadd?action=$action&sortby=fullname">$lt{'sn'}</a>
     </th><th>      </th><th>
        <a href="/adm/dropadd?action=$action&sortby=section">$lt{'sec'}</a>         <a href="/adm/dropadd?action=$action&sortby=section">$lt{'sec'}</a>
       </th><th>
          <a href="/adm/dropadd?action=$action&sortby=start">$lt{'start'}</a>
       </th><th>
          <a href="/adm/dropadd?action=$action&sortby=end">$lt{'end'}</a>
     </th>      </th>
 </tr>  </tr>
 END  END
Line 1778  END Line 1866  END
         } (keys(%$classlist));          } (keys(%$classlist));
     foreach my $student (@Sorted_Students) {      foreach my $student (@Sorted_Students) {
         my $error;          my $error;
         my $username = $classlist->{$student}->[$index{'username'}];          my $sdata = $classlist->{$student};
         my $domain   = $classlist->{$student}->[$index{'domain'}];          my $username = $sdata->[$index{'username'}];
         my $section  = $classlist->{$student}->[$index{'section'}];          my $domain   = $sdata->[$index{'domain'}];
         my $name     = $classlist->{$student}->[$index{'fullname'}];          my $section  = $sdata->[$index{'section'}];
         my $id       = $classlist->{$student}->[$index{'id'}];          my $name     = $sdata->[$index{'fullname'}];
         my $status   = $classlist->{$student}->[$index{'status'}];          my $id       = $sdata->[$index{'id'}];
           my $start    = $sdata->[$index{'start'}];
           my $end      = $sdata->[$index{'end'}];
           if (! defined($start) || $start == 0) {
               $start = &mt('none');
           } else {
               $start = &Apache::lonlocal::locallocaltime($start);
           }
           if (! defined($end) || $end == 0) {
               $end = &mt('none');
           } else {
               $end = &Apache::lonlocal::locallocaltime($end);
           }
           my $status   = $sdata->[$index{'status'}];
         next if ($status ne 'Active');          next if ($status ne 'Active');
         #          #
         $r->print(<<"END");          $r->print(<<"END");
Line 1794  END Line 1895  END
     <td>$id</td>      <td>$id</td>
     <td>$name</td>      <td>$name</td>
     <td>$section</td>      <td>$section</td>
       <td>$start</td>
       <td>$end</td>
 </tr>  </tr>
 END  END
     }      }
     $r->print('</table><br>');      $r->print('</table><br>');
     my %lt=&Apache::lonlocal::texthash(      %lt=&Apache::lonlocal::texthash(
                'dp'   => "Drop Students",                 'dp'   => "Drop Students",
                        'ca'   => "check all",                         'ca'   => "check all",
                        'ua'   => "uncheck all",                         'ua'   => "uncheck all",
Removed from v.1.106  
changed lines
  Added in v.1.114

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