loncom/interface/lonstatistics.pm - diff

Return to lonstatistics.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.104, 2004/06/15 14:22:45
+version 1.105, 2004/06/24 19:17:49
  Line 942  sub Gather_Full_Student_Data {
  sub DisplayClasslist {
      my ($r)=@_;
      #
-     my @Fields = ('fullname','username','domain','id','section');
+     # Output some of the standard interface components
+     my $Str;
+     $Str .= '<p><table cellspacing="5">'."\n";
+     $Str .= '<tr>';
+     $Str .= '<th align="center"><b>'.&mt('Sections').'</b></th>';
+     $Str .= '<th align="center"><b>'.&mt('Enrollment Status').'</b></th>';
+     $Str .= '</tr>'.$/;
+     $Str .= '<tr>';
+     $Str .= '<td>'.
+         &Apache::lonstatistics::SectionSelect('Section','multiple',5).
+         '</td>';
+     $Str .= '<td>'.
+         &Apache::lonhtmlcommon::StatusOptions(undef,undef,5).
+         '</td>';
+     $Str .= '</tr>'.$/;
+     $Str .= '</table></p>';
+     $Str .= '<input type="submit" name="selectstudent" value="'.
+         &mt('Update Display').'" />';
+     $r->print($Str);
+     $r->rflush();
      #
-     my $Str='';
+     my @Fields = ('fullname','username','domain','id','section','status');
+     #
+     $Str = '';
      if (! @Students) {
          if ($SelectedSections[0] eq 'all') {
              if (lc($ENV{'form.Status'}) eq 'any') {