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, |