version 1.154, 2011/01/17 00:19:38
|
version 1.164, 2017/12/18 23:51:14
|
Line 366 sub section_or_group_text {
|
Line 366 sub section_or_group_text {
|
|
|
sub get_students { |
sub get_students { |
if (! @Students) { |
if (! @Students) { |
&PrepareClasslist() |
&PrepareClasslist(); |
} |
} |
return @Students; |
return @Students; |
} |
} |
Line 413 sub StudentDataSelect {
|
Line 413 sub StudentDataSelect {
|
last; |
last; |
} |
} |
} |
} |
$Str .= ">all</option>\n"; |
$Str .= '>'.&mt('all')."</option>\n"; |
# |
# |
# Loop through the student data fields |
# Loop through the student data fields |
foreach my $item (@StudentDataOrder) { |
foreach my $item (@StudentDataOrder) { |
Line 424 sub StudentDataSelect {
|
Line 424 sub StudentDataSelect {
|
last; |
last; |
} |
} |
} |
} |
$Str .= '>'.$item."</option>\n"; |
$Str .= '>'.&mt($item)."</option>\n"; |
} |
} |
$Str .= "</select>\n"; |
$Str .= "</select>\n"; |
return $Str; |
return $Str; |
Line 466 sub selected_sequences_with_assessments
|
Line 466 sub selected_sequences_with_assessments
|
|
|
my @sequences_with_assessments; |
my @sequences_with_assessments; |
foreach my $sequence (@sequences) { |
foreach my $sequence (@sequences) { |
if ($navmap->hasResource($sequence,sub { shift->is_problem(); },0,1)){ |
if ($navmap->hasResource($sequence,sub { shift->is_gradable(); },0,1)){ |
push(@sequences_with_assessments,$sequence); |
push(@sequences_with_assessments,$sequence); |
} |
} |
} |
} |
Line 511 sub map_select {
|
Line 511 sub map_select {
|
if ($selected_maps[0] eq 'all') { |
if ($selected_maps[0] eq 'all') { |
$form .= ' selected="selected"'; |
$form .= ' selected="selected"'; |
} |
} |
$form .= ">all</option>\n"; |
$form .= '>'.&mt('all').'</option>'."\n"; |
# |
# |
# Loop through the sequences |
# Loop through the sequences |
my @sequences = &selected_sequences_with_assessments('all'); |
my @sequences = &selected_sequences_with_assessments('all'); |
Line 547 sub SectionSelect {
|
Line 547 sub SectionSelect {
|
&PrepareClasslist() |
&PrepareClasslist() |
} |
} |
# |
# |
|
# Make sure course's student table is up to date |
|
if (@Sections) { |
|
&Apache::loncoursedata::ensure_current_sections(); |
|
} |
|
# |
# Build the form element |
# Build the form element |
my $Str = "\n"; |
my $Str = "\n"; |
$Str .= '<select name="'.$elementname.'" '; |
$Str .= '<select name="'.$elementname.'" '; |
Line 582 sub GroupSelect {
|
Line 587 sub GroupSelect {
|
&PrepareClasslist(); |
&PrepareClasslist(); |
} |
} |
# |
# |
|
# Make sure course's groupnames and studentgroups tables |
|
# are up to date. |
|
# |
|
if (@Groups) { |
|
&Apache::loncoursedata::ensure_current_groups(); |
|
&Apache::loncoursedata::ensure_current_students_groups(); |
|
} |
|
# |
# Build the form element |
# Build the form element |
my $Str = "\n"; |
my $Str = "\n"; |
$Str .= '<select name="'.$elementname.'" '; |
$Str .= '<select name="'.$elementname.'" '; |
Line 615 sub DisplayClasslist {
|
Line 628 sub DisplayClasslist {
|
# Output some of the standard interface components |
# Output some of the standard interface components |
my $Str; |
my $Str; |
$Str .= &Apache::lonhtmlcommon::breadcrumbs('Select One Student'); |
$Str .= &Apache::lonhtmlcommon::breadcrumbs('Select One Student'); |
$Str .= '<p><table cellspacing="5">'."\n"; |
$Str .= '<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>'; |
$Str .= '<th align="center"><b>'.&mt('Groups').'</b></th>'; |
$Str .= '<th align="center"><b>'.&mt('Groups').'</b></th>'; |
Line 633 sub DisplayClasslist {
|
Line 646 sub DisplayClasslist {
|
'</td>'; |
'</td>'; |
|
|
$Str .= '</tr>'.$/; |
$Str .= '</tr>'.$/; |
$Str .= '</table></p>'; |
$Str .= '</table>'; |
$Str .= '<input type="submit" name="selectstudent" value="'. |
$Str .= '<input type="submit" name="selectstudent" value="'. |
&mt('Update Display').'" />'; |
&mt('Update Display').'" />'; |
$r->print($Str); |
$r->print($Str); |
Line 691 sub DisplayClasslist {
|
Line 704 sub DisplayClasslist {
|
} |
} |
|
|
$Str .= '<h2>'.&mt('Select One Student').'</h2>' |
$Str .= '<h2>'.&mt('Select One Student').'</h2>' |
.'<p>'.&mt("Click on a student's name or username to view their chart").'</p>' |
.'<p>'.&mt("Click on a student's name or username to view their chart.").'</p>' |
.&Apache::loncommon::start_data_table() |
.&Apache::loncommon::start_data_table() |
.&Apache::loncommon::start_data_table_header_row(); |
.&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&'. |
'selectstudent=1&'. |
'selectstudent=1&'. |
'sort='.$field.'">'.&mt($field). |
'sort='.$field.'">'.&mt($field). |
'</a></th>'; |
'</a></th>'; |
} |
} |
Line 712 sub DisplayClasslist {
|
Line 725 sub DisplayClasslist {
|
if ($field eq 'fullname' || $field eq 'username') { |
if ($field eq 'fullname' || $field eq 'username') { |
$Str .= '<a href="/adm/statistics?reportSelected='; |
$Str .= '<a href="/adm/statistics?reportSelected='; |
$Str .= &escape('student_assessment'); |
$Str .= &escape('student_assessment'); |
$Str .= '&sort='.&escape($env{'form.sort'}); |
$Str .= '&sort='.&escape($env{'form.sort'}); |
$Str .= '&SelectedStudent='; |
$Str .= '&SelectedStudent='; |
$Str .= &escape($sname).'">'; |
$Str .= &escape($sname).'">'; |
$Str .= $student->{$field}.' '; |
$Str .= $student->{$field}; |
$Str .= '</a>'; |
$Str .= '</a>'; |
} elsif ($field eq 'status') { |
} elsif ($field eq 'status') { |
$Str .= &mt($student->{$field}); |
$Str .= &mt($student->{$field}); |
} else { |
} else { |
$Str .= $student->{$field}; |
if ($student->{$field} eq 'none') { |
|
$Str .= &mt('none') |
|
} else { |
|
$Str .= $student->{$field}; |
|
} |
} |
} |
$Str .= '</td>'; |
$Str .= '</td>'; |
} |
} |
Line 846 ENDSTYLE
|
Line 863 ENDSTYLE
|
# |
# |
if (! &Apache::lonmysql::verify_sql_connection()) { |
if (! &Apache::lonmysql::verify_sql_connection()) { |
my $serveradmin = $r->dir_config('lonAdmEMail'); |
my $serveradmin = $r->dir_config('lonAdmEMail'); |
$r->print('<h2 class="LC_error">'. |
$r->print('<p class="LC_error">'. |
&mt('Unable to connect to database!'). |
&mt('Unable to connect to database!'). |
'</h2>'); |
'</p>'); |
$r->print('<p>' |
$r->print('<p>' |
.&mt('Please notify the server administrator [_1]', |
.&mt('Please notify the server administrator [_1]', |
,'<b>'.$serveradmin.'</b>') |
,'<b>'.$serveradmin.'</b>') |
Line 864 ENDSTYLE
|
Line 881 ENDSTYLE
|
# |
# |
# Clean out the caches |
# Clean out the caches |
if (exists($env{'form.ClearCache'})) { |
if (exists($env{'form.ClearCache'})) { |
&Apache::loncoursedata::delete_caches($env{'requres.course.id'}); |
&Apache::loncoursedata::delete_caches($env{'request.course.id'}); |
} |
} |
# |
# |
my $GoToPage = $env{'form.reportSelected'}; |
my $GoToPage = $env{'form.reportSelected'}; |