version 1.102, 2004/06/04 17:41:35
|
version 1.114, 2005/02/17 08:29:43
|
Line 77 use Apache::lonproblemstatistics();
|
Line 77 use Apache::lonproblemstatistics();
|
use Apache::lonstudentassessment(); |
use Apache::lonstudentassessment(); |
use Apache::lonpercentage; |
use Apache::lonpercentage; |
use Apache::lonstudentsubmissions(); |
use Apache::lonstudentsubmissions(); |
|
use Apache::lonsurveyreports(); |
|
|
####################################################### |
####################################################### |
####################################################### |
####################################################### |
Line 228 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 785 sub SectionSelect {
|
Line 786 sub SectionSelect {
|
return $Str; |
return $Str; |
} |
} |
|
|
####################################################### |
|
####################################################### |
|
|
|
=pod |
|
|
|
=item &CreateAndParseOutputSelector() |
|
|
|
Construct a selection list of options for output and parse output selections. |
|
|
|
=cut |
|
|
|
####################################################### |
|
####################################################### |
|
sub OutputDescriptions { |
|
my (@OutputOptions) = @_; |
|
my $Str = ''; |
|
$Str .= "<h2>Output Modes</h2>\n"; |
|
$Str .= "<dl>\n"; |
|
foreach my $outputmode (@OutputOptions) { |
|
$Str .=" <dt>".$outputmode->{'name'}."</dt>\n"; |
|
$Str .=" <dd>".$outputmode->{'description'}."</dd>\n"; |
|
} |
|
$Str .= "</dl>\n"; |
|
return $Str; |
|
} |
|
|
|
sub CreateAndParseOutputSelector { |
|
my ($elementname,$default,@OutputOptions) = @_; |
|
my $output_mode; |
|
my $show; |
|
my $Str = ''; |
|
# |
|
# Format for output options is 'mode, restrictions'; |
|
my $selected = $default; |
|
if (exists($ENV{'form.'.$elementname})) { |
|
if (ref($ENV{'form.'.$elementname} eq 'ARRAY')) { |
|
$selected = $ENV{'form.'.$elementname}->[0]; |
|
} else { |
|
$selected = $ENV{'form.'.$elementname}; |
|
} |
|
} |
|
# |
|
# Set package variables describing output mode |
|
$output_mode = 'html'; |
|
$show = 'all'; |
|
foreach my $option (@OutputOptions) { |
|
next if ($option->{'value'} ne $selected); |
|
$output_mode = $option->{'mode'}; |
|
$show = $option->{'show'}; |
|
} |
|
# |
|
# Build the form element |
|
$Str = qq/<select size="5" name="$elementname">/; |
|
foreach my $option (@OutputOptions) { |
|
if (exists($option->{'special'}) && |
|
$option->{'special'} =~ /do not show/) { |
|
next; |
|
} |
|
$Str .= "\n".' <option value="'.$option->{'value'}.'"'; |
|
$Str .= " selected " if ($option->{'value'} eq $selected); |
|
$Str .= ">".&mt($option->{'name'})."<\/option>"; |
|
} |
|
$Str .= "\n</select>"; |
|
return ($Str,$output_mode,$show); |
|
} |
|
|
|
############################################### |
|
############################################### |
|
|
|
=pod |
|
|
|
=item &Gather_Student_Data() |
|
|
|
Ensures all student data is up to date. |
|
|
|
=cut |
|
|
|
############################################### |
|
############################################### |
|
sub Gather_Student_Data { |
|
my ($r) = @_; |
|
my $c = $r->connection(); |
|
# |
|
&Apache::loncoursedata::clear_internal_caches(); |
|
# |
|
my @Sequences = &Apache::lonstatistics::Sequences_with_Assess(); |
|
# |
|
my @Students = @Apache::lonstatistics::Students; |
|
# |
|
# Open the progress window |
|
my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin |
|
($r,'Statistics Compilation Status', |
|
'Statistics Compilation Progress', scalar(@Students)); |
|
# |
|
while (my $student = shift @Students) { |
|
return if ($c->aborted()); |
|
my ($status,undef) = &Apache::loncoursedata::ensure_current_data |
|
($student->{'username'},$student->{'domain'}, |
|
$ENV{'request.course.id'}); |
|
&Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state, |
|
&mt('last student')); |
|
} |
|
&Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state); |
|
$r->rflush(); |
|
} |
|
|
|
############################################### |
|
############################################### |
|
|
|
=pod |
|
|
|
=item &Gather_Full_Student_Data() |
|
|
|
Ensures all student data is up to date. |
|
|
|
=cut |
|
|
|
############################################### |
|
############################################### |
|
sub Gather_Full_Student_Data { |
|
my ($r) = @_; |
|
my $c = $r->connection(); |
|
# |
|
&Apache::loncoursedata::clear_internal_caches(); |
|
# |
|
my @Students = @Apache::lonstatistics::Students; |
|
# |
|
# Open the progress window |
|
my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin |
|
($r,&mt('Student Data Compilation Status'), |
|
&mt('Student Data Compilation Progress'), scalar(@Students)); |
|
# |
|
while (my $student = shift @Students) { |
|
return if ($c->aborted()); |
|
my ($status,undef) = &Apache::loncoursedata::ensure_current_full_data |
|
($student->{'username'},$student->{'domain'}, |
|
$ENV{'request.course.id'}); |
|
&Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state, |
|
&mt('last student')); |
|
} |
|
&Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state); |
|
$r->rflush(); |
|
} |
|
|
|
################################################## |
################################################## |
################################################## |
################################################## |
sub DisplayClasslist { |
sub DisplayClasslist { |
my ($r)=@_; |
my ($r)=@_; |
|
&Apache::lonhtmlcommon::add_breadcrumb |
|
({text=>'Select One Student'}); |
# |
# |
my @Fields = ('fullname','username','domain','id','section'); |
# Output some of the standard interface components |
|
my $Str; |
|
$Str .= &Apache::lonhtmlcommon::breadcrumbs(undef,'Select One Student'); |
|
$Str .= '<p><table cellspacing="5">'."\n"; |
|
$Str .= '<tr>'; |
|
$Str .= '<th align="center"><b>'.&mt('Sections').'</b></th>'; |
|
$Str .= '<th align="center"><b>'.&mt('Enrollment Status').'</b></th>'; |
|
$Str .= '</tr>'.$/; |
|
$Str .= '<tr>'; |
|
$Str .= '<td>'. |
|
&Apache::lonstatistics::SectionSelect('Section','multiple',5). |
|
'</td>'; |
|
$Str .= '<td>'. |
|
&Apache::lonhtmlcommon::StatusOptions(undef,undef,5). |
|
'</td>'; |
|
|
|
$Str .= '</tr>'.$/; |
|
$Str .= '</table></p>'; |
|
$Str .= '<input type="submit" name="selectstudent" value="'. |
|
&mt('Update Display').'" />'; |
|
$r->print($Str); |
|
$r->rflush(); |
|
# |
|
my @Fields = ('fullname','username','domain','id','section','status'); |
# |
# |
my $Str=''; |
$Str = ''; |
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 983 sub DisplayClasslist {
|
Line 865 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 1008 sub DisplayClasslist {
|
Line 890 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 1046 sub CreateMainMenu {
|
Line 930 sub CreateMainMenu {
|
{ internal_name => 'student_submission_reports', |
{ internal_name => 'student_submission_reports', |
name => &mt('Student Submission Reports'), |
name => &mt('Student Submission Reports'), |
short_description => |
short_description => |
&mt('Prepare Excel spreadsheets of student submissions.'), |
&mt('Prepare reports of student submissions.'), |
|
}, |
|
{ internal_name => 'survey_reports', |
|
name => &mt('Survey Reports'), |
|
short_description => |
|
&mt('Prepare reports on survey results.'), |
}, |
}, |
{ internal_name => 'correct_problems_plot', |
{ internal_name => 'correct_problems_plot', |
name => &mt('Correct Problems Plot'), |
name => &mt('Correct Problems Plot'), |
Line 1115 sub handler {
|
Line 1004 sub handler {
|
'SelectedStudent']); |
'SelectedStudent']); |
# |
# |
# Give the LON-CAPA page header |
# Give the LON-CAPA page header |
$r->print('<html><head><title>'. |
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 |
|
my $html=&Apache::lonxml::xmlbegin(); |
|
$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(); |
# |
# |
Line 1193 sub handler {
|
Line 1092 sub handler {
|
'/adm/statistics?reportselected=student_submission_reports', |
'/adm/statistics?reportselected=student_submission_reports', |
text=>'Student Submission Reports'}); |
text=>'Student Submission Reports'}); |
&Apache::lonstudentsubmissions::BuildStudentSubmissionsPage($r,$c); |
&Apache::lonstudentsubmissions::BuildStudentSubmissionsPage($r,$c); |
|
} elsif($GoToPage eq 'survey_reports') { |
|
&Apache::lonhtmlcommon::add_breadcrumb |
|
({href=> |
|
'/adm/statistics?reportselected=survey_reports', |
|
text=>'Survey Reports'}); |
|
&Apache::lonsurveyreports::BuildSurveyReportsPage($r,$c); |
} elsif($GoToPage eq 'correct_problems_plot') { |
} elsif($GoToPage eq 'correct_problems_plot') { |
&Apache::lonhtmlcommon::add_breadcrumb |
&Apache::lonhtmlcommon::add_breadcrumb |
({href=>'/adm/statistics?reportselected=correct_problems_plot', |
({href=>'/adm/statistics?reportselected=correct_problems_plot', |