version 1.105, 2004/06/24 19:17:49
|
version 1.110, 2004/09/22 15:39:14
|
Line 229 sub PrepareClasslist {
|
Line 229 sub PrepareClasslist {
|
} |
} |
# |
# |
# Set up %StudentData |
# Set up %StudentData |
@StudentDataOrder = qw/fullname username domain id section status/; |
@StudentDataOrder = qw/fullname username domain id section status comments/; |
foreach my $field (@StudentDataOrder) { |
foreach my $field (@StudentDataOrder) { |
$StudentData{$field}->{'title'} = $field; |
$StudentData{$field}->{'title'} = &mt($field); |
$StudentData{$field}->{'base_width'} = length($field); |
$StudentData{$field}->{'base_width'} = length(&mt($field)); |
$StudentData{$field}->{'width'} = |
$StudentData{$field}->{'width'} = |
$StudentData{$field}->{'base_width'}; |
$StudentData{$field}->{'base_width'}; |
} |
} |
Line 941 sub Gather_Full_Student_Data {
|
Line 941 sub Gather_Full_Student_Data {
|
################################################## |
################################################## |
sub DisplayClasslist { |
sub DisplayClasslist { |
my ($r)=@_; |
my ($r)=@_; |
|
&Apache::lonhtmlcommon::add_breadcrumb |
|
({text=>'Select One Student'}); |
# |
# |
# Output some of the standard interface components |
# Output some of the standard interface components |
my $Str; |
my $Str; |
|
$Str .= &Apache::lonhtmlcommon::breadcrumbs(undef,'Select One Student'); |
$Str .= '<p><table cellspacing="5">'."\n"; |
$Str .= '<p><table cellspacing="5">'."\n"; |
$Str .= '<tr>'; |
$Str .= '<tr>'; |
$Str .= '<th align="center"><b>'.&mt('Sections').'</b></th>'; |
$Str .= '<th align="center"><b>'.&mt('Sections').'</b></th>'; |
Line 970 sub DisplayClasslist {
|
Line 973 sub DisplayClasslist {
|
if (! @Students) { |
if (! @Students) { |
if ($SelectedSections[0] eq 'all') { |
if ($SelectedSections[0] eq 'all') { |
if (lc($ENV{'form.Status'}) eq 'any') { |
if (lc($ENV{'form.Status'}) eq 'any') { |
$Str .= '<h2>There are no students in the course.</h2>'; |
$Str .= '<h2>'. |
|
&mt('There are no students in the course.'). |
|
'</h2>'; |
} elsif (lc($ENV{'form.Status'}) eq 'active') { |
} elsif (lc($ENV{'form.Status'}) eq 'active') { |
$Str .= '<h2>There are no currently enrolled students in '. |
$Str .= '<h2>'. |
'the course.</h2>'; |
&mt('There are no currently enrolled students in the course.'). |
|
'</h2>'; |
} elsif (lc($ENV{'form.Status'}) eq 'expired') { |
} elsif (lc($ENV{'form.Status'}) eq 'expired') { |
$Str .= '<h2>There are no previously enrolled '. |
$Str .= '<h2>'. |
'students in the course.</h2>'; |
&mt('There are no previously enrolled students in the course.'). |
|
'</h2>'; |
} |
} |
} else { |
} else { |
my $sections; |
my $sections; |
if (@SelectedSections == 1) { |
|
$sections = 'section '.$SelectedSections[0]; |
|
} elsif (@SelectedSections > 2) { |
|
$sections = 'sections '.join(', ',@SelectedSections); |
|
$sections =~ s/, ([^,])*$/, and $1/; |
|
} else { |
|
$sections = 'sections '.join(' and ',@SelectedSections); |
|
} |
|
if (lc($ENV{'form.Status'}) eq 'any') { |
if (lc($ENV{'form.Status'}) eq 'any') { |
$Str .= '<h2>There are no students in '.$sections.'.</h2>'; |
$Str .= '<h2>'. |
|
&mt('There are no students in the selected sections.'). |
|
'</h2>'; |
} elsif (lc($ENV{'form.Status'}) eq 'active') { |
} elsif (lc($ENV{'form.Status'}) eq 'active') { |
$Str .= '<h2>There are no currently enrolled students '. |
$Str .= '<h2>'. |
'in '.$sections.'.</h2>'; |
&mt('There are no currently enrolled students in the selected sections.'). |
|
'</h2>'; |
} elsif (lc($ENV{'form.Status'}) eq 'expired') { |
} elsif (lc($ENV{'form.Status'}) eq 'expired') { |
$Str .= '<h2>There are no previously enrolled students '. |
$Str .= '<h2>'. |
'in '.$sections.'.</h2>'; |
&mt('There are no previously enrolled students in the selected sections.'). |
|
'</h2>'; |
} |
} |
} |
} |
$Str.= '<a href="/adm/statistics?reportSelected=student_assessment">'. |
$Str.= '<a href="/adm/statistics?reportSelected=student_assessment">'. |
'Return to the chart.</a>'; |
&mt('Click here to return to the chart').'</a>'; |
$r->print($Str); |
$r->print($Str); |
$r->rflush(); |
$r->rflush(); |
return; |
return; |
Line 1013 sub DisplayClasslist {
|
Line 1016 sub DisplayClasslist {
|
$Str .= '<th><a href="/adm/statistics?'. |
$Str .= '<th><a href="/adm/statistics?'. |
'reportSelected=student_assessment&'. |
'reportSelected=student_assessment&'. |
'selectstudent=1&'. |
'selectstudent=1&'. |
'sort='.$field.'">'.$field. |
'sort='.$field.'">'.&mt($field). |
'</a></th>'; |
'</a></th>'; |
} |
} |
$Str .= '</tr>'."\n"; |
$Str .= '</tr>'."\n"; |
Line 1038 sub DisplayClasslist {
|
Line 1041 sub DisplayClasslist {
|
$Str .= &Apache::lonnet::escape($sname).'">'; |
$Str .= &Apache::lonnet::escape($sname).'">'; |
$Str .= $student->{$field}.' '; |
$Str .= $student->{$field}.' '; |
$Str .= '</a>'; |
$Str .= '</a>'; |
|
} elsif ($field eq 'status') { |
|
$Str .= &mt($student->{$field}); |
} else { |
} else { |
$Str .= $student->{$field}; |
$Str .= $student->{$field}; |
} |
} |
Line 1150 sub handler {
|
Line 1155 sub handler {
|
'SelectedStudent']); |
'SelectedStudent']); |
# |
# |
# Give the LON-CAPA page header |
# Give the LON-CAPA page header |
|
my $style = <<ENDSTYLE; |
|
<style type="text/css"> |
|
ul.sub_studentans { list-style-type: none } |
|
ul.sub_correctans { list-style-type: none } |
|
tr.even { background-color: \#CCCCCC } |
|
td.essay { border: 1px solid gray; } |
|
</style> |
|
ENDSTYLE |
$r->print('<html><head><title>'. |
$r->print('<html><head><title>'. |
&mt('Course Statistics and Charts'). |
&mt('Course Statistics and Charts'). |
"</title></head>\n". |
'</title>'.$style. |
|
"</head>\n". |
&Apache::loncommon::bodytag('Course Statistics and Charts')); |
&Apache::loncommon::bodytag('Course Statistics and Charts')); |
$r->rflush(); |
$r->rflush(); |
# |
# |