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

Diff for /loncom/interface/lonviewclasslist.pm between versions 1.1 and 1.4

version 1.1, 2004/07/19 17:57:25 version 1.4, 2005/02/17 08:29:43
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');
       my $html=&Apache::lonxml::xmlbegin();
     $r->print(<<ENDHEADER);      $r->print(<<ENDHEADER);
 <html>  $html
 <head>  <head>
 <title>Classlist</title>  <title>Classlist</title>
 </head>  </head>
 $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 114  sub allowed_to_view_classlist {
     } else {      } else {
         return 0;          return 0;
     }      }
   
 }  }
   
 sub html_classlist {  sub html_classlist {
Line 166  sub html_classlist { Line 164  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,
Line 180  sub html_classlist { Line 177  sub html_classlist {
                                                       $domain).'</td>'.                                                        $domain).'</td>'.
             '<td>'.('&nbsp;'x2).              '<td>'.('&nbsp;'x2).
             &Apache::loncommon::messagewrapper              &Apache::loncommon::messagewrapper
             ('<img src="/adm/lonIcons/mailto.gif" />&nbsp;'.              ('<img src="/adm/lonIcons/mailto.gif" border="0" />&nbsp;'.
              $username.'@'.$domain,$username,$domain).'</td>';               $username.'@'.$domain,$username,$domain).'</td>';
         if (! $limit_to_section) {          if (! $limit_to_section) {
             $Str .= '<td>'.$section.'</td>';              $Str .= '<td>'.$section.'</td>';
Removed from v.1.1  
changed lines
  Added in v.1.4

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