version 1.140, 2008/09/16 12:32:18
|
version 1.141, 2008/09/16 15:40:15
|
Line 965 sub DisplayClasslist {
|
Line 965 sub DisplayClasslist {
|
my @selected_sections = &get_selected_sections(); |
my @selected_sections = &get_selected_sections(); |
if (! @Students) { |
if (! @Students) { |
if ($selected_sections[0] eq 'all') { |
if ($selected_sections[0] eq 'all') { |
if (lc($env{'form.Status'}) eq 'any') { |
if (lc($env{'form.Status'}) eq 'active') { |
$Str .= '<h2>'. |
$Str .= '<p class="LC_info">'. |
&mt('There are no students in the course.'). |
|
'</h2>'; |
|
} elsif (lc($env{'form.Status'}) eq 'active') { |
|
$Str .= '<h2>'. |
|
&mt('There are no currently enrolled students in the course.'). |
&mt('There are no currently enrolled students in the course.'). |
'</h2>'; |
'</p>'; |
} elsif (lc($env{'form.Status'}) eq 'expired') { |
} elsif (lc($env{'form.Status'}) eq 'expired') { |
$Str .= '<h2>'. |
$Str .= '<p class="LC_info">'. |
&mt('There are no previously enrolled students in the course.'). |
&mt('There are no previously enrolled students in the course.'). |
'</h2>'; |
'</p>'; |
|
} elsif (lc($env{'form.Status'}) eq 'future') { |
|
$Str .= '<p class="LC_info">'. |
|
&mt('There are no students with future access in the course.'). |
|
'</p>'; |
|
} else { # 'any' and any others |
|
$Str .= '<p class="LC_info">'. |
|
&mt('There are no students in the course.'). |
|
'</p>'; |
} |
} |
} else { |
} else { |
my $sections; |
if (lc($env{'form.Status'}) eq 'active') { |
if (lc($env{'form.Status'}) eq 'any') { |
$Str .= '<p class="LC_info">'. |
$Str .= '<h2>'. |
|
&mt('There are no students in the selected sections.'). |
|
'</h2>'; |
|
} elsif (lc($env{'form.Status'}) eq 'active') { |
|
$Str .= '<h2>'. |
|
&mt('There are no currently enrolled students in the selected sections.'). |
&mt('There are no currently enrolled students in the selected sections.'). |
'</h2>'; |
'</p>'; |
} elsif (lc($env{'form.Status'}) eq 'expired') { |
} elsif (lc($env{'form.Status'}) eq 'expired') { |
$Str .= '<h2>'. |
$Str .= '<p class="LC_info">'. |
&mt('There are no previously enrolled students in the selected sections.'). |
&mt('There are no previously enrolled students in the selected sections.'). |
'</h2>'; |
'</p>'; |
|
} elsif (lc($env{'form.Status'}) eq 'future') { |
|
$Str .= '<p class="LC_info">'. |
|
&mt('There are no students with future access in the selected sections.'). |
|
'</p>'; |
|
} else { # 'any' and any others |
|
$Str .= '<p class="LC_info">'. |
|
&mt('There are no students in the selected sections.'). |
|
'</p>'; |
} |
} |
} |
} |
$Str.= '<a href="/adm/statistics?reportSelected=student_assessment">'. |
$Str.= '<p>' |
&mt('Click here to return to the chart').'</a>'; |
.'<a href="/adm/statistics?reportSelected=student_assessment">' |
|
.&mt('Return to the chart').'</a>' |
|
.'</p>'; |
$r->print($Str); |
$r->print($Str); |
$r->rflush(); |
$r->rflush(); |
return; |
return; |
} |
} |
|
|
# "Click" is asinine but it is probably not my place to change the world. |
$Str .= '<h2>'.&mt('Select One Student').'</h2>' |
$Str .= '<h2>Click on a students name or username to view their chart</h2>'; |
.'<p>'.&mt("Click on a student's name or username to view their chart").'</p>' |
$Str .= '<table border="0"><tr><td bgcolor="#777777">'."\n"; |
.&Apache::loncommon::start_data_table() |
$Str .= '<table border="0" cellpadding="3"><tr bgcolor="#e6ffff">'."\n"; |
.&Apache::loncommon::start_data_table_header_row(); |
foreach my $field (@Fields) { |
foreach my $field (@Fields) { |
$Str .= '<th><a href="/adm/statistics?'. |
$Str .= '<th><a href="/adm/statistics?'. |
'reportSelected=student_assessment&'. |
'reportSelected=student_assessment&'. |
Line 1012 sub DisplayClasslist {
|
Line 1021 sub DisplayClasslist {
|
'sort='.$field.'">'.&mt($field). |
'sort='.$field.'">'.&mt($field). |
'</a></th>'; |
'</a></th>'; |
} |
} |
$Str .= '</tr>'."\n"; |
$Str .= &Apache::loncommon::end_data_table_header_row(); |
# |
# |
my $alternate = 0; |
|
foreach my $student (@Students) { # @Students is a package variable |
foreach my $student (@Students) { # @Students is a package variable |
my $sname = $student->{'username'}.':'.$student->{'domain'}; |
my $sname = $student->{'username'}.':'.$student->{'domain'}; |
if($alternate) { |
$Str .= &Apache::loncommon::start_data_table_row(); |
$Str .= '<tr bgcolor="#ffffe6">'; |
|
} else { |
|
$Str .= '<tr bgcolor="#ffffc6">'; |
|
} |
|
$alternate = ($alternate + 1) % 2; |
|
# |
# |
foreach my $field (@Fields) { |
foreach my $field (@Fields) { |
$Str .= '<td>'; |
$Str .= '<td>'; |
Line 1041 sub DisplayClasslist {
|
Line 1044 sub DisplayClasslist {
|
} |
} |
$Str .= '</td>'; |
$Str .= '</td>'; |
} |
} |
$Str .= "</tr>\n"; |
$Str .= &Apache::loncommon::end_data_table_row(); |
} |
} |
$Str .= '</table></td></tr></table>'."\n"; |
$Str .= &Apache::loncommon::end_data_table(); |
# |
# |
$r->print($Str); |
$r->print($Str); |
$r->rflush(); |
$r->rflush(); |