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

Diff for /loncom/interface/lonviewclasslist.pm between versions 1.2 and 1.3

version 1.2, 2004/08/27 04:18:11 version 1.3, 2004/12/08 19:30:58
Line 78  sub handler { Line 78  sub handler {
     my $bodytag=&Apache::loncommon::bodytag('Classlist');      my $bodytag=&Apache::loncommon::bodytag('Classlist');
     my $breadcrumbs=&Apache::lonhtmlcommon::breadcrumbs(undef,      my $breadcrumbs=&Apache::lonhtmlcommon::breadcrumbs(undef,
                                                         'Enrollment Manager');                                                          'Enrollment Manager');
   
     $r->print(<<ENDHEADER);      $r->print(<<ENDHEADER);
 <html>  <html>
 <head>  <head>
Line 87  sub handler { Line 86  sub handler {
 $bodytag  $bodytag
 $breadcrumbs  $breadcrumbs
 ENDHEADER  ENDHEADER
   
     #      #
     # Print classlist      # Print classlist
     my $cid = $ENV{'request.course.id'};      my $cid = $ENV{'request.course.id'};
Line 115  sub allowed_to_view_classlist { Line 113  sub allowed_to_view_classlist {
     } else {      } else {
         return 0;          return 0;
     }      }
   
 }  }
   
 sub html_classlist {  sub html_classlist {
Line 166  sub html_classlist { Line 163  sub html_classlist {
         }          }
         my $section  = $classlist->{$student}->[$sectionidx];          my $section  = $classlist->{$student}->[$sectionidx];
         my $status   = $classlist->{$student}->[$statusidx];          my $status   = $classlist->{$student}->[$statusidx];
 #        next if (lc($status) ne 'active');          next if (lc($status) ne 'active');
         if ($limit_to_section) {          if ($limit_to_section) {
             if ($section ne $ENV{'request.course.sec'}) {              if ($section ne $ENV{'request.course.sec'}) {
                 next;                  next;
             }              }
         }          }
   
         $Str .= '<tr>'.          $Str .= '<tr>'.
             '<td>'.$count++.'</td>'.              '<td>'.$count++.'</td>'.
             '<td>'.&Apache::loncommon::aboutmewrapper($fullname,              '<td>'.&Apache::loncommon::aboutmewrapper($fullname,
Removed from v.1.2  
changed lines
  Added in v.1.3

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