version 1.142, 2008/10/22 10:53:21
|
version 1.153, 2010/08/04 01:56:02
|
Line 28
|
Line 28
|
# |
# |
### |
### |
|
|
=pod |
|
|
|
=head1 NAME |
|
|
|
lonstatistics |
|
|
|
=head1 SYNOPSIS |
|
|
|
Main handler for statistics and chart. |
|
|
|
=over 4 |
|
|
|
=cut |
|
|
|
package Apache::lonstatistics; |
package Apache::lonstatistics; |
|
|
Line 78 use Apache::lonsurveyreports();
|
Line 66 use Apache::lonsurveyreports();
|
use Apache::longradinganalysis(); |
use Apache::longradinganalysis(); |
use LONCAPA; |
use LONCAPA; |
|
|
####################################################### |
|
####################################################### |
|
|
|
=pod |
|
|
|
=item Package Variables |
|
|
|
=item @FullClasslist The full classlist |
|
|
|
=item @Students The students we are concerned with for this invocation |
|
|
|
=item @Sections The sections available in this class |
|
|
|
=item @Groups The groups available in the class |
|
|
|
=item $curr_student The student currently being examined |
|
|
|
=item $prev_student The student previous in the classlist |
|
|
|
=item $next_student The student next in the classlist |
|
|
|
=over |
|
|
|
=cut |
|
|
|
####################################################### |
|
####################################################### |
|
# |
# |
# Classlist variables |
# Classlist variables |
# |
# |
Line 112 my $curr_student;
|
Line 73 my $curr_student;
|
my $prev_student; |
my $prev_student; |
my $next_student; |
my $next_student; |
|
|
####################################################### |
|
####################################################### |
|
|
|
=pod |
|
|
|
=item &clear_classlist_variables() |
|
|
|
undef the following package variables: |
|
|
|
=over |
|
|
|
=item @FullClasslist |
|
|
|
=item @Students |
|
|
|
=item @Sections |
|
|
|
=item @Groups |
|
|
|
=item %StudentData |
|
|
|
=item @StudentDataOrder |
|
|
|
=item @SelectedStudentData |
|
|
|
=item $curr_student |
|
|
|
=item $prev_student |
|
|
|
=item $next_student |
|
|
|
=back |
|
|
|
=cut |
|
|
|
####################################################### |
|
####################################################### |
|
sub clear_classlist_variables { |
sub clear_classlist_variables { |
undef(@FullClasslist); |
undef(@FullClasslist); |
undef(@Students); |
undef(@Students); |
Line 161 sub clear_classlist_variables {
|
Line 86 sub clear_classlist_variables {
|
undef($next_student); |
undef($next_student); |
} |
} |
|
|
####################################################### |
|
####################################################### |
|
|
|
=pod |
|
|
|
=item &PrepareClasslist() |
|
|
|
Build up the classlist information. The classlist information is kept in |
|
the following package variables: |
|
|
|
=over |
|
|
|
=item @FullClasslist |
|
|
|
=item @Students |
|
|
|
=item @Sections |
|
|
|
=item @Groups |
|
|
|
=item %StudentData |
|
|
|
=item @SelectedStudentData |
|
|
|
=item $curr_student |
|
|
|
=item $prev_student |
|
|
|
=item $next_student |
|
|
|
=back |
|
|
|
$curr_student, $prev_student, and $next_student may not be defined, depending |
|
upon the calling context. |
|
|
|
=cut |
|
|
|
####################################################### |
|
####################################################### |
|
sub PrepareClasslist { |
sub PrepareClasslist { |
my %Sections; |
my %Sections; |
&clear_classlist_variables(); |
&clear_classlist_variables(); |
Line 374 sub PrepareClasslist {
|
Line 261 sub PrepareClasslist {
|
return; |
return; |
} |
} |
|
|
####################################################### |
|
####################################################### |
|
|
|
=pod |
|
|
|
=item get_selected_sections |
|
|
|
Returns an array of the selected sections |
|
|
|
=cut |
|
|
|
####################################################### |
|
####################################################### |
|
sub get_selected_sections { |
sub get_selected_sections { |
my @selected_sections = |
my @selected_sections = |
&Apache::loncommon::get_env_multiple('form.Section'); |
&Apache::loncommon::get_env_multiple('form.Section'); |
Line 404 sub get_selected_sections {
|
Line 279 sub get_selected_sections {
|
return @selected_sections; |
return @selected_sections; |
} |
} |
|
|
####################################################### |
|
####################################################### |
|
|
|
=pod |
|
|
|
=item get_selected_groups |
|
|
|
Returns an array of the selected groups |
|
|
|
=cut |
|
|
|
####################################################### |
|
####################################################### |
|
sub get_selected_groups { |
sub get_selected_groups { |
my @selected_groups = |
my @selected_groups = |
&Apache::loncommon::get_env_multiple('form.Group'); |
&Apache::loncommon::get_env_multiple('form.Group'); |
Line 430 sub get_selected_groups {
|
Line 293 sub get_selected_groups {
|
return @selected_groups; |
return @selected_groups; |
} |
} |
|
|
=pod |
|
|
|
=item §ion_and_enrollment_description |
|
|
|
Returns a string describing the currently selected section(s), group(s) and |
|
access status. |
|
|
|
Inputs: mode = 'plaintext' or 'localized' (defaults to 'localized') |
|
'plaintext' is used for example in Excel spreadsheets. |
|
Returns: scalar description string. |
|
|
|
=cut |
|
|
|
####################################################### |
|
####################################################### |
|
sub section_and_enrollment_description { |
sub section_and_enrollment_description { |
my ($mode) = @_; |
my ($mode) = @_; |
if (! defined($mode)) { $mode = 'localized'; } |
if (! defined($mode)) { $mode = 'localized'; } |
Line 469 sub section_and_enrollment_description {
|
Line 319 sub section_and_enrollment_description {
|
return $description; |
return $description; |
} |
} |
|
|
####################################################### |
|
####################################################### |
|
|
|
sub section_or_group_text { |
sub section_or_group_text { |
my ($mode,$type,@items) = @_; |
my ($mode,$type,@items) = @_; |
Line 513 sub section_or_group_text {
|
Line 363 sub section_or_group_text {
|
} |
} |
|
|
|
|
=pod |
|
|
|
=item get_students |
|
|
|
Returns a list of the selected students |
|
|
|
=cut |
|
|
|
####################################################### |
|
####################################################### |
|
sub get_students { |
sub get_students { |
if (! @Students) { |
if (! @Students) { |
&PrepareClasslist() |
&PrepareClasslist() |
Line 530 sub get_students {
|
Line 370 sub get_students {
|
return @Students; |
return @Students; |
} |
} |
|
|
####################################################### |
|
####################################################### |
|
|
|
=pod |
|
|
|
=item ¤t_student() |
|
|
|
Returns a pointer to a hash containing data about the currently |
|
selected student. |
|
|
|
=cut |
|
|
|
####################################################### |
|
####################################################### |
|
sub current_student { |
sub current_student { |
return $curr_student; |
return $curr_student; |
} |
} |
|
|
####################################################### |
|
####################################################### |
|
|
|
=pod |
|
|
|
=item &previous_student() |
|
|
|
Returns a pointer to a hash containing data about the student prior |
|
in the list of students. Or something. |
|
|
|
=cut |
|
|
|
####################################################### |
|
####################################################### |
|
sub previous_student { |
sub previous_student { |
return $prev_student; |
return $prev_student; |
} |
} |
|
|
####################################################### |
|
####################################################### |
|
|
|
=pod |
|
|
|
=item &next_student() |
|
|
|
Returns a pointer to a hash containing data about the next student |
|
to be viewed. |
|
|
|
=cut |
|
|
|
####################################################### |
|
####################################################### |
|
sub next_student { |
sub next_student { |
return $next_student; |
return $next_student; |
} |
} |
|
|
############################################## |
|
############################################## |
|
|
|
=pod |
|
|
|
=item &StudentDataSelect($elementname,$status,$numvisible,$selected) |
|
|
|
Returns html for a selection box allowing the user to choose one (or more) |
|
of the fields of student data available (fullname, username, id, section, etc) |
|
|
|
=over 4 |
|
|
|
=item $elementname The name of the HTML form element |
|
|
|
=item $status 'multiple' or 'single' selection box |
|
|
|
=item $numvisible The number of options to be visible |
|
|
|
=back |
|
|
|
=cut |
|
|
|
############################################## |
|
############################################## |
|
sub StudentDataSelect { |
sub StudentDataSelect { |
my ($elementname,$status,$numvisible)=@_; |
my ($elementname,$status,$numvisible)=@_; |
if ($numvisible < 1) { |
if ($numvisible < 1) { |
Line 618 sub StudentDataSelect {
|
Line 400 sub StudentDataSelect {
|
my $Str = "\n"; |
my $Str = "\n"; |
$Str .= '<select name="'.$elementname.'" '; |
$Str .= '<select name="'.$elementname.'" '; |
if ($status ne 'single') { |
if ($status ne 'single') { |
$Str .= 'multiple="true" '; |
$Str .= 'multiple="multiple" '; |
} |
} |
$Str .= 'size="'.$numvisible.'" >'."\n"; |
$Str .= 'size="'.$numvisible.'" >'."\n"; |
# |
# |
# Deal with 'all' |
# Deal with 'all' |
$Str .= ' <option value="all" '; |
$Str .= ' <option value="all"'; |
foreach (@SelectedStudentData) { |
foreach (@SelectedStudentData) { |
if ($_ eq 'all') { |
if ($_ eq 'all') { |
$Str .= 'selected '; |
$Str .= ' selected="selected"'; |
last; |
last; |
} |
} |
} |
} |
Line 634 sub StudentDataSelect {
|
Line 416 sub StudentDataSelect {
|
# |
# |
# Loop through the student data fields |
# Loop through the student data fields |
foreach my $item (@StudentDataOrder) { |
foreach my $item (@StudentDataOrder) { |
$Str .= ' <option value="'.$item.'" '; |
$Str .= ' <option value="'.$item.'"'; |
foreach (@SelectedStudentData) { |
foreach (@SelectedStudentData) { |
if ($item eq $_ ) { |
if ($item eq $_ ) { |
$Str .= 'selected '; |
$Str .= ' selected="selected"'; |
last; |
last; |
} |
} |
} |
} |
Line 647 sub StudentDataSelect {
|
Line 429 sub StudentDataSelect {
|
return $Str; |
return $Str; |
} |
} |
|
|
####################################################### |
|
####################################################### |
|
|
|
=pod |
|
|
|
=item &get_selected_maps($elementname) |
|
|
|
Input: Name of the <select> form element used to specify the maps. |
|
|
|
Returns: Array of symbs of selected maps or the description 'all'. |
|
If form.$elementname does not exist, 'all' is returned. |
|
|
|
=cut |
|
|
|
####################################################### |
|
####################################################### |
|
sub get_selected_maps { |
sub get_selected_maps { |
my ($elementname) = @_; |
my ($elementname) = @_; |
my @selected_maps = |
my @selected_maps = |
Line 678 sub get_selected_maps {
|
Line 446 sub get_selected_maps {
|
} |
} |
|
|
|
|
####################################################### |
|
####################################################### |
|
|
|
=pod |
|
|
|
=item &selected_sequences_with_assessments |
|
|
|
Retrieve the sequences which were selected by the user to show. |
|
|
|
Input: $mode: scalar. Either 'selected' or 'all'. If not specified, |
|
'selected' is used. |
|
|
|
Returns: an array containing a navmap object and navmap resources, |
|
or an array containing a scalar with an error message. |
|
|
|
=cut |
|
|
|
####################################################### |
|
####################################################### |
|
sub selected_sequences_with_assessments { |
sub selected_sequences_with_assessments { |
my ($mode) = @_; |
my ($mode) = @_; |
$mode = 'selected' if (! defined($mode)); |
$mode = 'selected' if (! defined($mode)); |
Line 736 sub selected_sequences_with_assessments
|
Line 487 sub selected_sequences_with_assessments
|
return $navmap,@sequences_to_show; |
return $navmap,@sequences_to_show; |
} |
} |
|
|
############################################## |
|
############################################## |
|
|
|
=pod |
|
|
|
=item &map_select($elementname,$status,$numvisible,$restriction) |
|
|
|
Returns html for a selection box allowing the user to choose one (or more) |
|
of the sequences in the course. The values of the sequences are the symbs. |
|
If the top sequence is selected, the value 'top' will result. |
|
|
|
=over 4 |
|
|
|
=item $elementname The name of the HTML form element |
|
|
|
=item $status 'multiple' or 'single' selection box |
|
|
|
=item $numvisible The number of options to be visible |
|
|
|
=back |
|
|
|
=cut |
|
|
|
############################################## |
|
############################################## |
|
sub map_select { |
sub map_select { |
my ($elementname,$status,$numvisible)=@_; |
my ($elementname,$status,$numvisible)=@_; |
if ($numvisible < 1) { |
if ($numvisible < 1) { |
Line 774 sub map_select {
|
Line 501 sub map_select {
|
my $form = "\n"; |
my $form = "\n"; |
$form .= '<select name="'.$elementname.'" '; |
$form .= '<select name="'.$elementname.'" '; |
if ($status ne 'single') { |
if ($status ne 'single') { |
$form .= 'multiple="true" '; |
$form .= 'multiple="multiple" '; |
} |
} |
$form .= 'size="'.$numvisible.'" >'."\n"; |
$form .= 'size="'.$numvisible.'" >'."\n"; |
# |
# |
# Put in option for 'all' |
# Put in option for 'all' |
$form .= ' <option value="all" '; |
$form .= ' <option value="all"'; |
if ($selected_maps[0] eq 'all') { |
if ($selected_maps[0] eq 'all') { |
$form .= 'selected '; |
$form .= ' selected="selected"'; |
} |
} |
$form .= ">all</option>\n"; |
$form .= ">all</option>\n"; |
# |
# |
Line 794 sub map_select {
|
Line 521 sub map_select {
|
$navmap = shift(@sequences); |
$navmap = shift(@sequences); |
} |
} |
foreach my $seq (@sequences){ |
foreach my $seq (@sequences){ |
$form .= ' <option value="'.$seq->symb.'" '; |
$form .= ' <option value="'.$seq->symb.'"'; |
foreach (@selected_maps) { |
foreach (@selected_maps) { |
if ($seq->symb eq $_) { |
if ($seq->symb eq $_) { |
$form .= 'selected '; |
$form .= ' selected="selected"'; |
last; |
last; |
} |
} |
} |
} |
Line 807 sub map_select {
|
Line 534 sub map_select {
|
return $form; |
return $form; |
} |
} |
|
|
############################################## |
|
############################################## |
|
|
|
=pod |
|
|
|
=item &SectionSelect($elementname,$status,$numvisible) |
|
|
|
Returns html for a selection box allowing the user to choose one (or more) |
|
of the sections in the course. |
|
|
|
Uses the package variables @Sections |
|
=over 4 |
|
|
|
=item $elementname The name of the HTML form element |
|
|
|
=item $status 'multiple' or 'single' selection box |
|
|
|
=item $numvisible The number of options to be visible |
|
|
|
=back |
|
|
|
=cut |
|
|
|
############################################## |
|
############################################## |
|
sub SectionSelect { |
sub SectionSelect { |
my ($elementname,$status,$numvisible)=@_; |
my ($elementname,$status,$numvisible)=@_; |
if ($numvisible < 1) { |
if ($numvisible < 1) { |
Line 847 sub SectionSelect {
|
Line 550 sub SectionSelect {
|
my $Str = "\n"; |
my $Str = "\n"; |
$Str .= '<select name="'.$elementname.'" '; |
$Str .= '<select name="'.$elementname.'" '; |
if ($status ne 'single') { |
if ($status ne 'single') { |
$Str .= 'multiple="true" '; |
$Str .= 'multiple="multiple" '; |
} |
} |
$Str .= 'size="'.$numvisible.'" >'."\n"; |
$Str .= 'size="'.$numvisible.'" >'."\n"; |
# |
# |
# Loop through the sequences |
# Loop through the sequences |
foreach my $s (@Sections) { |
foreach my $s (@Sections) { |
$Str .= ' <option value="'.$s.'" '; |
$Str .= ' <option value="'.$s.'"'; |
foreach (&get_selected_sections()) { |
foreach (&get_selected_sections()) { |
if ($s eq $_) { |
if ($s eq $_) { |
$Str .= 'selected '; |
$Str .= ' selected="selected"'; |
last; |
last; |
} |
} |
} |
} |
Line 866 sub SectionSelect {
|
Line 569 sub SectionSelect {
|
return $Str; |
return $Str; |
} |
} |
|
|
############################################## |
|
############################################## |
|
|
|
=pod |
|
|
|
=item &GroupSelect($elementname,$status,$numvisible) |
|
|
|
Returns html for a selection box allowing the user to choose one (or more) |
|
of the groups in the course. |
|
|
|
Uses the package variables @Groups |
|
=over 4 |
|
|
|
=item $elementname The name of the HTML form element |
|
|
|
=item $status 'multiple' or 'single' selection box |
|
|
|
=item $numvisible The number of options to be visible |
|
|
|
=back |
|
|
|
=cut |
|
|
|
############################################## |
|
############################################## |
|
sub GroupSelect { |
sub GroupSelect { |
my ($elementname,$status,$numvisible)=@_; |
my ($elementname,$status,$numvisible)=@_; |
if ($numvisible < 1) { |
if ($numvisible < 1) { |
Line 906 sub GroupSelect {
|
Line 585 sub GroupSelect {
|
my $Str = "\n"; |
my $Str = "\n"; |
$Str .= '<select name="'.$elementname.'" '; |
$Str .= '<select name="'.$elementname.'" '; |
if ($status ne 'single') { |
if ($status ne 'single') { |
$Str .= 'multiple="true" '; |
$Str .= 'multiple="multiple" '; |
} |
} |
$Str .= 'size="'.$numvisible.'" >'."\n"; |
$Str .= 'size="'.$numvisible.'" >'."\n"; |
# |
# |
# Loop through the groups |
# Loop through the groups |
foreach my $s (@Groups) { |
foreach my $s (@Groups) { |
$Str .= ' <option value="'.$s.'" '; |
$Str .= ' <option value="'.$s.'"'; |
foreach my $group (&get_selected_groups()) { |
foreach my $group (&get_selected_groups()) { |
if ($s eq $group) { |
if ($s eq $group) { |
$Str .= 'selected '; |
$Str .= ' selected="selected"'; |
last; |
last; |
} |
} |
} |
} |
Line 925 sub GroupSelect {
|
Line 604 sub GroupSelect {
|
} |
} |
|
|
|
|
################################################## |
|
################################################## |
|
sub DisplayClasslist { |
sub DisplayClasslist { |
my ($r)=@_; |
my ($r)=@_; |
&Apache::lonhtmlcommon::add_breadcrumb |
&Apache::lonhtmlcommon::add_breadcrumb |
Line 1035 sub DisplayClasslist {
|
Line 714 sub DisplayClasslist {
|
$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}); |
Line 1054 sub DisplayClasslist {
|
Line 733 sub DisplayClasslist {
|
return; |
return; |
} |
} |
|
|
############################################## |
|
############################################## |
|
sub CreateMainMenu { |
sub CreateMainMenu { |
# |
# |
# Define menu data |
# Define menu data |
my @reports = ({ internal_name => 'problem_statistics', |
my @reports = ( |
name => &mt('Overall Problem Statistics'), |
{categorytitle => 'Statistics and Analyses', |
short_description => |
items => [ |
&mt('Student performance statistics on all problems.'), |
{url => '/adm/statistics?reportSelected=problem_statistics', |
}, |
permission => 'F', |
{ internal_name => 'problem_analysis', |
icon => 'document-open.png', |
name => &mt('Detailed Problem Analysis'), |
linktext => ('Overall Problem Statistics'), |
short_description => |
linktitle => ('Student performance statistics on all problems.')}, |
&mt('Detailed statistics and graphs of student performance on problems.'), |
|
}, |
{url => '/adm/statistics?reportSelected=problem_analysis', |
{ internal_name => 'submissiontime_analysis', |
permission => 'F', |
name => &mt('Submission Time Plots'), |
icon => 'prob_ana.png', |
short_description => |
linktext => ('Detailed Problem Analysis'), |
&mt('Display and analysis of submission times on assessments.'), |
linktitle => ('Detailed statistics and graphs of student performance on problems.')}, |
}, |
]}, |
{ internal_name => 'student_submission_reports', |
{categorytitle => 'Plots', |
name => &mt('Student Submission Reports'), |
items => [ |
short_description => |
{url => '/adm/statistics?reportSelected=submissiontime_analysis', |
&mt('Prepare reports of student submissions.'), |
permission => 'F', |
}, |
icon => 'subtimpl.png', |
{ internal_name => 'survey_reports', |
linktext => ('Submission Time Plots'), |
name => &mt('Survey Reports'), |
linktitle => ('Display and analysis of submission times on assessments.')}, |
short_description => |
|
&mt('Prepare reports on survey results.'), |
{url => '/adm/statistics?reportSelected=correct_problems_plot', |
}, |
permission => 'F', |
{ internal_name => 'correct_problems_plot', |
icon => 'coprplot.png', |
name => &mt('Correct Problems Plot'), |
linktext => ('Correct Problems Plot'), |
short_description => |
linktitle => ('Display a histogram of student performance in the course.')}, |
&mt('Display a histogram of student performance in the course.'), |
]}, |
}, |
{categorytitle => 'Reports', |
# { internal_name => 'grading_analysis', |
items => [ |
# name => &mt('Detailed Grading Analysis'), |
{url => '/adm/statistics?reportSelected=student_submission_reports', |
# short_description => |
permission => 'F', |
# &mt('Display statistics about who graded who.'), |
icon => 'edit-copy.png', |
# }, |
linktext => ('Student Submission Reports'), |
# { internal_name => 'student_assessment', |
linktitle => ('Prepare reports of student submissions.')}, |
# name => &mt('Problem Status Chart'), |
|
# short_description => |
{url => '/adm/statistics?reportSelected=survey_reports', |
# &mt('Brief view of each students performance in course.'), |
permission => 'F', |
# }, |
icon => 'survey_rep.png', |
# 'percentage' => 'Correct-problems Plot', |
linktext => ('Survey Reports'), |
# 'activitylog' => 'Activity Log', |
linktitle => ('Prepare reports on survey results.')}, |
); |
]}); |
# |
|
# Create the menu |
return &Apache::lonhtmlcommon::generate_menu(@reports); |
my $Str; |
|
$Str .= '<h2>'.&mt('Please select a report to generate').'</h2>'; |
|
foreach my $reportdata (@reports) { |
|
$Str .=' <h3><a href="/adm/statistics?reportSelected='. |
|
$reportdata->{'internal_name'}.'" >'. |
|
$reportdata->{'name'}."</a></h3>\n"; |
|
$Str .= ' '.(' 'x8).$reportdata->{'short_description'}. |
|
"\n"; |
|
} |
|
$Str .="</dl>\n"; |
|
# |
|
return $Str; |
|
} |
} |
|
|
############################################## |
|
############################################## |
|
sub handler { |
sub handler { |
my $r=shift; |
my $r=shift; |
my $c = $r->connection(); |
my $c = $r->connection(); |
# |
# |
# Check for overloading |
|
my $loaderror=&Apache::lonnet::overloaderror($r); |
|
if ($loaderror) { return $loaderror; } |
|
$loaderror= |
|
&Apache::lonnet::overloaderror($r, |
|
$env{'course.'.$env{'request.course.id'}.'.home'}); |
|
if ($loaderror) { return $loaderror; } |
|
# |
|
# Check for access |
# Check for access |
if (! &Apache::lonnet::allowed('vgr',$env{'request.course.id'})) { |
if (! &Apache::lonnet::allowed('vgr',$env{'request.course.id'})) { |
$env{'user.error.msg'}= |
$env{'user.error.msg'}= |
Line 1193 ENDSTYLE
|
Line 853 ENDSTYLE
|
.'</p>'); |
.'</p>'); |
$r->print('<p>'. |
$r->print('<p>'. |
&mt('Course Statistics and Charts cannot be '. |
&mt('Course Statistics and Charts cannot be '. |
'retrieved until the database is restarted. '. |
'retrieved until the database is restarted. '. |
'Your data is intact but cannot be displayed '. |
'Your data is intact but cannot be displayed '. |
'at this time.').'</p>'); |
'at this time.').'</p>'); |
$r->print(&Apache::loncommon::end_page()); |
$r->print(&Apache::loncommon::end_page()); |
Line 1205 ENDSTYLE
|
Line 865 ENDSTYLE
|
&Apache::loncoursedata::delete_caches($env{'requres.course.id'}); |
&Apache::loncoursedata::delete_caches($env{'requres.course.id'}); |
} |
} |
# |
# |
|
my $GoToPage = $env{'form.reportSelected'}; |
|
# |
# Begin form output |
# Begin form output |
$r->print('<form name="Statistics" '); |
$r->print('<form name="Statistics" '); |
|
if ($GoToPage eq 'student_submission_reports') { |
|
$r->print('onsubmit="return checkanon();" '); |
|
} |
$r->print('method="post" action="/adm/statistics">'); |
$r->print('method="post" action="/adm/statistics">'); |
$r->rflush(); |
$r->rflush(); |
# |
|
my $GoToPage = $env{'form.reportSelected'}; |
|
# |
|
$r->print('<input type="hidden" name="reportSelected" value="'. |
$r->print('<input type="hidden" name="reportSelected" value="'. |
$GoToPage.'">'); |
$GoToPage.'" />'); |
if($GoToPage eq 'activitylog') { |
if($GoToPage eq 'activitylog') { |
# &Apache::lonproblemstatistics::Activity(); |
# &Apache::lonproblemstatistics::Activity(); |
} elsif($GoToPage eq 'problem_statistics') { |
} elsif($GoToPage eq 'problem_statistics') { |
Line 1272 ENDSTYLE
|
Line 934 ENDSTYLE
|
|
|
1; |
1; |
|
|
####################################################### |
__END__ |
####################################################### |
|
|
|
=pod |
=pod |
|
|
|
=head1 NAME |
|
|
|
lonstatistics |
|
|
|
=head1 SYNOPSIS |
|
|
|
Main handler for statistics and chart. |
|
|
|
This is part of the LearningOnline Network with CAPA project |
|
described at http://www.lon-capa.org. |
|
|
|
|
|
=head1 PACKAGE VARIABLES |
|
|
|
=over |
|
|
|
=item @FullClasslist The full classlist |
|
|
|
=item @Students The students we are concerned with for this invocation |
|
|
|
=item @Sections The sections available in this class |
|
|
|
=item @Groups The groups available in the class |
|
|
|
=item $curr_student The student currently being examined |
|
|
|
=item $prev_student The student previous in the classlist |
|
|
|
=item $next_student The student next in the classlist |
|
|
=back |
=back |
|
|
=cut |
=head1 SUBROUTINES |
|
|
|
=over |
|
|
####################################################### |
=item &clear_classlist_variables() |
####################################################### |
|
|
|
__END__ |
undef the following package variables: |
|
|
|
=over 4 |
|
|
|
=item * @FullClasslist |
|
|
|
=item * @Students |
|
|
|
=item * @Sections |
|
|
|
=item * @Groups |
|
|
|
=item * %StudentData |
|
|
|
=item * @StudentDataOrder |
|
|
|
=item * @SelectedStudentData |
|
|
|
=item * $curr_student |
|
|
|
=item * $prev_student |
|
|
|
=item * $next_student |
|
|
|
=back |
|
|
|
=item &PrepareClasslist() |
|
|
|
Build up the classlist information. The classlist information is kept in |
|
the following package variables: |
|
|
|
=over 4 |
|
|
|
=item * @FullClasslist |
|
|
|
=item * @Students |
|
|
|
=item * @Sections |
|
|
|
=item * @Groups |
|
|
|
=item * %StudentData |
|
|
|
=item * @SelectedStudentData |
|
|
|
=item * $curr_student |
|
|
|
=item * $prev_student |
|
|
|
=item * $next_student |
|
|
|
=back |
|
|
|
$curr_student, $prev_student, and $next_student may not be defined, depending |
|
upon the calling context. |
|
|
|
=item get_selected_sections() |
|
|
|
Returns an array of the selected sections |
|
|
|
=item get_selected_groups() |
|
|
|
Returns an array of the selected groups |
|
|
|
=item §ion_and_enrollment_description() |
|
|
|
Returns a string describing the currently selected section(s), group(s) and |
|
access status. |
|
|
|
Inputs: mode = 'plaintext' or 'localized' (defaults to 'localized') |
|
'plaintext' is used for example in Excel spreadsheets. |
|
Returns: scalar description string. |
|
|
|
=item section_or_group_text() |
|
|
|
=item get_students() |
|
|
|
Returns a list of the selected students |
|
|
|
=item ¤t_student() |
|
|
|
Returns a pointer to a hash containing data about the currently |
|
selected student. |
|
|
|
=item &previous_student() |
|
|
|
Returns a pointer to a hash containing data about the student prior |
|
in the list of students. Or something. |
|
|
|
=item &next_student() |
|
|
|
Returns a pointer to a hash containing data about the next student |
|
to be viewed. |
|
|
|
=item &StudentDataSelect($elementname,$status,$numvisible,$selected) |
|
|
|
Returns html for a selection box allowing the user to choose one (or more) |
|
of the fields of student data available (fullname, username, id, section, etc) |
|
|
|
=over 4 |
|
|
|
=item * $elementname The name of the HTML form element |
|
|
|
=item * $status 'multiple' or 'single' selection box |
|
|
|
=item * $numvisible The number of options to be visible |
|
|
|
=back |
|
|
|
=item &get_selected_maps($elementname) |
|
|
|
Input: Name of the <select> form element used to specify the maps. |
|
|
|
Returns: Array of symbs of selected maps or the description 'all'. |
|
If form.$elementname does not exist, 'all' is returned. |
|
|
|
=item &selected_sequences_with_assessments() |
|
|
|
Retrieve the sequences which were selected by the user to show. |
|
|
|
Input: $mode: scalar. Either 'selected' or 'all'. If not specified, |
|
'selected' is used. |
|
|
|
Returns: an array containing a navmap object and navmap resources, |
|
or an array containing a scalar with an error message. |
|
|
|
=item &map_select($elementname,$status,$numvisible,$restriction) |
|
|
|
Returns html for a selection box allowing the user to choose one (or more) |
|
of the sequences in the course. The values of the sequences are the symbs. |
|
If the top sequence is selected, the value 'top' will result. |
|
|
|
=over 4 |
|
|
|
=item * $elementname The name of the HTML form element |
|
|
|
=item * $status 'multiple' or 'single' selection box |
|
|
|
=item * $numvisible The number of options to be visible |
|
|
|
=back |
|
|
|
=item &SectionSelect($elementname,$status,$numvisible) |
|
|
|
Returns html for a selection box allowing the user to choose one (or more) |
|
of the sections in the course. |
|
|
|
Uses the package variables @Sections |
|
|
|
=over 4 |
|
|
|
=item * $elementname The name of the HTML form element |
|
|
|
=item * $status 'multiple' or 'single' selection box |
|
|
|
=item * $numvisible The number of options to be visible |
|
|
|
=back |
|
|
|
=item &GroupSelect($elementname,$status,$numvisible) |
|
|
|
Returns html for a selection box allowing the user to choose one (or more) |
|
of the groups in the course. |
|
|
|
Uses the package variables @Groups |
|
|
|
=over 4 |
|
|
|
=item * $elementname The name of the HTML form element |
|
|
|
=item * $status 'multiple' or 'single' selection box |
|
|
|
=item * $numvisible The number of options to be visible |
|
|
|
=back |
|
|
|
=item CreateMainMenu() |
|
|
|
=back |
|
|
|
=cut |
|
|