loncom/interface/lonstatistics.pm - diff

Return to lonstatistics.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonstatistics.pm between versions 1.115 and 1.143

version 1.115, 2005/02/25 02:37:49	version 1.143, 2008/11/10 13:20:14
Line 38 lonstatistics	Line 38 lonstatistics

Main handler for statistics and chart.	Main handler for statistics and chart.

	This is part of the LearningOnline Network with CAPA project
	described at http://www.lon-capa.org.

=over 4	=over 4

=cut	=cut
Line 49 use Apache::Constants qw(:common :http);	Line 52 use Apache::Constants qw(:common :http);
use vars qw(	use vars qw(
@FullClasslist	@FullClasslist
@Students	@Students
@Sections	@Sections
@SelectedSections	@Groups
%StudentData	%StudentData
@StudentDataOrder	@StudentDataOrder
@SelectedStudentData	@SelectedStudentData
$enrollment_status);	$enrollment_status);

use Apache::lonnet();	use Apache::lonnet;
use Apache::lonhomework;	use Apache::lonhomework;
use Apache::loncommon;	use Apache::loncommon;
use Apache::loncoursedata;	use Apache::loncoursedata;
use Apache::lonhtmlcommon;	use Apache::lonhtmlcommon;
use Apache::lonmysql;	use Apache::lonmysql;
use Apache::lonlocal;	use Apache::lonlocal;
	use Apache::longroup;
use Time::HiRes;	use Time::HiRes;
#	#
# Statistics Packages	# Statistics Packages
Line 74 use Apache::lonstudentassessment();	Line 78 use Apache::lonstudentassessment();
use Apache::lonpercentage;	use Apache::lonpercentage;
use Apache::lonstudentsubmissions();	use Apache::lonstudentsubmissions();
use Apache::lonsurveyreports();	use Apache::lonsurveyreports();
	use Apache::longradinganalysis();
	use LONCAPA;

#######################################################	#######################################################
#######################################################	#######################################################
Line 88 use Apache::lonsurveyreports();	Line 94 use Apache::lonsurveyreports();

=item @Sections The sections available in this class	=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 $curr_student The student currently being examined

=item $prev_student The student previous in the classlist	=item $prev_student The student previous in the classlist
Line 124 undef the following package variables:	Line 132 undef the following package variables:

=item @Sections	=item @Sections

=item @SelectedSections	=item @Groups

=item %StudentData	=item %StudentData

Line 148 sub clear_classlist_variables {	Line 156 sub clear_classlist_variables {
undef(@FullClasslist);	undef(@FullClasslist);
undef(@Students);	undef(@Students);
undef(@Sections);	undef(@Sections);
undef(@SelectedSections);	undef(@Groups);
undef(%StudentData);	undef(%StudentData);
undef(@SelectedStudentData);	undef(@SelectedStudentData);
undef($curr_student);	undef($curr_student);
Line 174 the following package variables:	Line 182 the following package variables:

=item @Sections	=item @Sections

=item @SelectedSections	=item @Groups

=item %StudentData	=item %StudentData

Line 200 sub PrepareClasslist {	Line 208 sub PrepareClasslist {
&clear_classlist_variables();	&clear_classlist_variables();
#	#
# Retrieve the classlist	# Retrieve the classlist
my $cid = $ENV{'request.course.id'};	my $cid = $env{'request.course.id'};
my $cdom = $ENV{'course.'.$cid.'.domain'};	my $cdom = $env{'course.'.$cid.'.domain'};
my $cnum = $ENV{'course.'.$cid.'.num'};	my $cnum = $env{'course.'.$cid.'.num'};
my ($classlist,$field_names) = &Apache::loncoursedata::get_classlist($cid,	my ($classlist,$field_names) = &Apache::loncoursedata::get_classlist($cdom,
$cdom,$cnum);	$cnum);
if (exists($ENV{'form.Section'})) {	my @selected_sections = &get_selected_sections();
if (ref($ENV{'form.Section'})) {	my @selected_groups = &get_selected_groups();
@SelectedSections = @{$ENV{'form.Section'}};
} elsif ($ENV{'form.Section'} !~ /^\s*$/) {
@SelectedSections = ($ENV{'form.Section'});
}
}
@SelectedSections = ('all') if (! @SelectedSections);
foreach (@SelectedSections) {
if ($_ eq 'all') {
@SelectedSections = ('all');
}
}
#	#
# Deal with instructors with restricted section access	# Deal with instructors with restricted section access
if ($ENV{'request.course.sec'} !~ /^\s*$/) {	if ($env{'request.course.sec'} !~ /^\s*$/) {
@SelectedSections = ($ENV{'request.course.sec'});	@selected_sections = ($env{'request.course.sec'});
}	}
#	#
# Set up %StudentData	# Set up %StudentData
@StudentDataOrder = qw/fullname username domain id section status comments/;	@StudentDataOrder = qw/fullname username domain id section status groups comments/;
foreach my $field (@StudentDataOrder) {	foreach my $field (@StudentDataOrder) {
$StudentData{$field}->{'title'} = &mt($field);	$StudentData{$field}->{'title'} = &mt($field);
$StudentData{$field}->{'base_width'} = length(&mt($field));	$StudentData{$field}->{'base_width'} = length(&mt($field));
Line 235 sub PrepareClasslist {	Line 232 sub PrepareClasslist {
#	#
# get the status requested	# get the status requested
$enrollment_status = 'Active';	$enrollment_status = 'Active';
$enrollment_status = $ENV{'form.Status'} if (exists($ENV{'form.Status'}));	$enrollment_status = $env{'form.Status'} if (exists($env{'form.Status'}));
#	#
	# Get groupmembership
	my ($classgroups,$studentgroups);
	my %curr_groups = &Apache::longroup::coursegroups($cdom,$cnum);
	if (%curr_groups) {
	($classgroups,$studentgroups) =
	&Apache::loncoursedata::get_group_memberships($classlist,
	$field_names,
	$cdom,$cnum);
	}
	my $now = time;

# Process the classlist	# Process the classlist
while (my ($student,$student_data) = each (%$classlist)) {	while (my ($student,$student_data) = each (%$classlist)) {
my $studenthash = ();	my $studenthash = ();
Line 251 sub PrepareClasslist {	Line 259 sub PrepareClasslist {
$StudentData{$field}->{'width'} = $length;	$StudentData{$field}->{'width'} = $length;
}	}
}	}
	my @studentsgroups = &Apache::loncoursedata::get_students_groups
	($student,$enrollment_status,
	$classgroups);
	if (@studentsgroups) {
	$studenthash->{'groups'} = join(', ',@studentsgroups);
	$studenthash->{'groupref'} = \@studentsgroups;
	} else {
	$studenthash->{'groups'} = 'none';
	$studenthash->{'groupref'} = [];
	}
push (@FullClasslist,$studenthash);	push (@FullClasslist,$studenthash);
#	#
# Build up a list of sections	# Build up a list of sections
Line 262 sub PrepareClasslist {	Line 280 sub PrepareClasslist {
$Sections{$section}++;	$Sections{$section}++;
#	#
# Only put in the list those students we are interested in	# Only put in the list those students we are interested in
foreach my $sect (@SelectedSections) {	foreach my $sect (@selected_sections) {
if ( (($sect eq 'all') \|\|	if ( (($sect eq 'all') \|\|
($section eq $sect)) &&	($section eq $sect)) &&
(($studenthash->{'status'} eq $enrollment_status) \|\|	(($studenthash->{'status'} eq $enrollment_status) \|\|
($enrollment_status eq 'Any'))	($enrollment_status eq 'Any'))
){	){
push (@Students,$studenthash);	my $groupcheck = 0;
last;	if (grep(/^all$/,@selected_groups)) {
	push(@Students,$studenthash);
	last;
	} elsif (grep(/^none$/,@selected_groups)) {
	if ($studenthash->{'groups'} eq 'none') {
	push(@Students,$studenthash);
	last;
	}
	} else {
	foreach my $group (@selected_groups) {
	if (grep(/^$group$/,@studentsgroups)) {
	push(@Students,$studenthash);
	$groupcheck = 1;
	last;
	}
	}
	if ($groupcheck) {
	last;
	}
	}
}	}
}	}
}	}
#	#
# Put the consolidated section data in the right place	# Put the consolidated section data in the right place
if ($ENV{'request.course.sec'} !~ /^\s*$/) {	if ($env{'request.course.sec'} !~ /^\s*$/) {
@Sections = ($ENV{'request.course.sec'});	@Sections = ($env{'request.course.sec'});
} else {	} else {
@Sections = sort {$a cmp $b} keys(%Sections);	@Sections = sort {
	if ($a == $a && $b == $b ) { return $a <=> $b; }
	return $a cmp $b;
	} keys(%Sections);

unshift(@Sections,'all'); # Put 'all' at the front of the list	unshift(@Sections,'all'); # Put 'all' at the front of the list
}	}
	# Sort the groups
	@Groups = sort {$a cmp $b} keys(%{$studentgroups});
	unshift(@Groups,'all'); # Put 'all' at the front of the list

#	#
# Sort the Students	# Sort the Students
my $sortby = 'fullname';	my $sortby = 'fullname';
$sortby = $ENV{'form.sort'} if (exists($ENV{'form.sort'}));	$sortby = $env{'form.sort'} if (exists($env{'form.sort'}));
my @TmpStudents = sort { $a->{$sortby} cmp $b->{$sortby} \|\|	my @TmpStudents = sort { lc($a->{$sortby}) cmp lc($b->{$sortby}) \|\|
$a->{'fullname'} cmp $b->{'fullname'} } @Students;	lc($a->{'fullname'}) cmp lc($b->{'fullname'}) \|\|
	lc($a->{'username'}) cmp lc($b->{'username'}) } @Students;
@Students = @TmpStudents;	@Students = @TmpStudents;
#	#
# Now deal with that current student thing....	# Now deal with that current student thing....
$curr_student = undef;	$curr_student = undef;
if (exists($ENV{'form.SelectedStudent'})) {	if (exists($env{'form.SelectedStudent'})) {
my ($current_uname,$current_dom) =	my ($current_uname,$current_dom) =
split(':',$ENV{'form.SelectedStudent'});	split(':',$env{'form.SelectedStudent'});
my $i;	my $i;
for ($i = 0; $i<=$#Students; $i++) {	for ($i = 0; $i<=$#Students; $i++) {
next if (($Students[$i]->{'username'} ne $current_uname) \|\|	next if (($Students[$i]->{'username'} ne $current_uname) \|\|
Line 315 sub PrepareClasslist {	Line 361 sub PrepareClasslist {
}	}
}	}
#	#
if (exists($ENV{'form.StudentData'})) {	if (exists($env{'form.StudentData'})) {
if (ref($ENV{'form.StudentData'}) eq 'ARRAY') {	@SelectedStudentData =
@SelectedStudentData = @{$ENV{'form.StudentData'}};	&Apache::loncommon::get_env_multiple('form.StudentData');
} else {
@SelectedStudentData = ($ENV{'form.StudentData'});
}
} else {	} else {
@SelectedStudentData = ('username');	@SelectedStudentData = ('username');
}	}
Line 334 sub PrepareClasslist {	Line 377 sub PrepareClasslist {
return;	return;
}	}

	#######################################################
	#######################################################

	=pod

	=item get_selected_sections

	Returns an array of the selected sections

	=cut

	#######################################################
	#######################################################
	sub get_selected_sections {
	my @selected_sections =
	&Apache::loncommon::get_env_multiple('form.Section');
	@selected_sections = ('all') if (! @selected_sections);
	foreach (@selected_sections) {
	if ($_ eq 'all') {
	@selected_sections = ('all');
	}
	}
	#
	# Deal with instructors with restricted section access
	if ($env{'request.course.sec'} !~ /^\s*$/) {
	@selected_sections = ($env{'request.course.sec'});
	}
	return @selected_sections;
	}

	#######################################################
	#######################################################

	=pod

	=item get_selected_groups

	Returns an array of the selected groups

	=cut

	#######################################################
	#######################################################
	sub get_selected_groups {
	my @selected_groups =
	&Apache::loncommon::get_env_multiple('form.Group');
	@selected_groups = ('all') if (! @selected_groups);
	foreach my $grp (@selected_groups) {
	if ($grp eq 'all') {
	@selected_groups = ('all');
	last;
	}
	}
	return @selected_groups;
	}

	=pod

	=item &section_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 {
	my ($mode) = @_;
	if (! defined($mode)) { $mode = 'localized'; }
	my @sections = &Apache::lonstatistics::get_selected_sections();
	my @groups = &Apache::lonstatistics::get_selected_groups();
	my $description;
	if ($mode eq 'localized') {
	$description = &mt('Unable to determine section, groups and access status');
	} elsif ($mode eq 'plaintext') {
	$description = 'Unable to determine section, groups and access status';
	} else {
	$description = 'Bad parameter passed to lonstatistics::section_and_enrollment_description';
	&Apache::lonnet::logthis($description);
	}
	$description = &section_or_group_text($mode,'section',@sections).
	' '.&section_or_group_text($mode,'group',@groups);
	if ($mode eq 'localized') {
	$description .= ' '.&mt($env{'form.Status'}.' access status.');
	} elsif ($mode eq 'plaintext') {
	$description .= ' '.$env{'form.Status'}.' access status.';
	}
	return $description;
	}

#######################################################	#######################################################
#######################################################	#######################################################

	sub section_or_group_text {
	my ($mode,$type,@items) = @_;
	my $text;
	my %phrases = ();
	%{$phrases{'section'}} = (
	single => 'Section',
	all => 'All sections',
	plural => 'Sections',
	);
	%{$phrases{'group'}} = (
	single => 'Group',
	all => 'All groups',
	plural => 'Groups',
	);
	if (scalar(@items) == 1 && $items[0] ne 'all') {
	if ($mode eq 'localized') {
	$text = &mt($phrases{$type}{single}.' [_1].',$items[0]);
	} elsif ($mode eq 'plaintext') {
	$text = $phrases{$type}{single}.' '.$items[0].'.';

	}
	} elsif (scalar(@items) && $items[0] eq 'all') {
	if ($mode eq 'localized') {
	$text = &mt($phrases{$type}{all}.'.');
	} elsif ($mode eq 'plaintext') {
	$text = $phrases{$type}{all}.'.';
	}
	} elsif (scalar(@items)) {
	my $lastitem = pop(@items);
	if ($mode eq 'localized') {
	$text = &mt($phrases{$type}{plural}.' [_1] and [_2].',
	join(', ',@items),$lastitem);
	} elsif ($mode eq 'plaintext') {
	$text = $phrases{$type}{plural}.' '.join(', ',@items).' and '.
	$lastitem.'.';
	}
	}
	return $text;
	}


=pod	=pod

=item get_students	=item get_students
Line 490 Returns: Array of symbs of selected maps	Line 668 Returns: Array of symbs of selected maps
#######################################################	#######################################################
sub get_selected_maps {	sub get_selected_maps {
my ($elementname) = @_;	my ($elementname) = @_;
my @selected_maps;	my @selected_maps =
if (exists($ENV{'form.'.$elementname})) {	&Apache::loncommon::get_env_multiple('form.'.$elementname);
if (ref($ENV{'form.'.$elementname})) {	@selected_maps = ('all') if (! @selected_maps);
@selected_maps = @{$ENV{'form.'.$elementname}};	foreach my $map (@selected_maps) {
} else {	if ($map eq 'all') {
@selected_maps = ($ENV{'form.'.$elementname});	@selected_maps = ('all');
	last;
}	}
} else {
@selected_maps = ('all');
}	}
return @selected_maps;	return @selected_maps;
}	}
Line 509 sub get_selected_maps {	Line 686 sub get_selected_maps {

=pod	=pod

=item &sequences_with_assessments	=item &selected_sequences_with_assessments

Retrieve the sequences which were selected by the user to show.	Retrieve the sequences which were selected by the user to show.

Line 523 Returns: an array containing a navmap ob	Line 700 Returns: an array containing a navmap ob

#######################################################	#######################################################
#######################################################	#######################################################
sub sequences_with_assessments {	sub selected_sequences_with_assessments {
my ($mode) = @_;	my ($mode) = @_;
$mode = 'selected' if (! defined($mode));	$mode = 'selected' if (! defined($mode));
my $navmap = Apache::lonnavmaps::navmap->new();	my $navmap = Apache::lonnavmaps::navmap->new();
Line 533 sub sequences_with_assessments {	Line 710 sub sequences_with_assessments {
#	#
my @sequences = $navmap->retrieveResources(undef,	my @sequences = $navmap->retrieveResources(undef,
sub { shift->is_map(); },1,0,1);	sub { shift->is_map(); },1,0,1);
	my $toplevelseq = $navmap->getById('0.0');
	if (!grep(/^\Q$toplevelseq\E$/,@sequences)) {
	unshift(@sequences,$toplevelseq);
	}

my @sequences_with_assessments;	my @sequences_with_assessments;
for my $sequence ($navmap->getById('0.0'), @sequences) {	foreach my $sequence (@sequences) {
if ($navmap->hasResource($sequence,sub { shift->is_problem(); }, 0)){	if ($navmap->hasResource($sequence,sub { shift->is_problem(); },0,1)){
push(@sequences_with_assessments,$sequence);	push(@sequences_with_assessments,$sequence);
}	}
}	}
Line 545 sub sequences_with_assessments {	Line 727 sub sequences_with_assessments {
if ($mode eq 'all') {	if ($mode eq 'all') {
push (@sequences_to_show,$sequence);	push (@sequences_to_show,$sequence);
} elsif ($mode eq 'selected') {	} elsif ($mode eq 'selected') {
foreach my $map_symb (&get_selected_maps()) {	foreach my $map_symb (&get_selected_maps('Maps')) {
if ($sequence->symb eq $map_symb \|\| $map_symb eq 'all'){	if ($sequence->symb eq $map_symb \|\| $map_symb eq 'all'){
push (@sequences_to_show,$sequence);	push (@sequences_to_show,$sequence);
last; # Only put it in once	last; # Only put it in once
Line 599 sub map_select {	Line 781 sub map_select {
}	}
$form .= 'size="'.$numvisible.'" >'."\n";	$form .= 'size="'.$numvisible.'" >'."\n";
#	#
# Deal with 'all'
foreach (@selected_maps) {
if ($_ eq 'all') {
@selected_maps = ('all');
last;
}
}
#
# Put in option for 'all'	# Put in option for 'all'
$form .= ' <option value="all" ';	$form .= ' <option value="all" ';
foreach (@selected_maps) {	if ($selected_maps[0] eq 'all') {
if ($_ eq 'all') {	$form .= 'selected ';
$form .= 'selected ';
last;
}
}	}
$form .= ">all</option>\n";	$form .= ">all</option>\n";
#	#
# Loop through the sequences	# Loop through the sequences
my @sequences = &sequences_with_assessments();	my @sequences = &selected_sequences_with_assessments('all');
my $navmap;	my $navmap;
if (!ref($sequences[0])) {	if (!ref($sequences[0])) {
return $sequences[0];	return $sequences[0];
Line 649 sub map_select {	Line 820 sub map_select {
Returns html for a selection box allowing the user to choose one (or more)	Returns html for a selection box allowing the user to choose one (or more)
of the sections in the course.	of the sections in the course.

Uses the package variables @Sections and @SelectedSections	Uses the package variables @Sections
=over 4	=over 4

=item $elementname The name of the HTML form element	=item $elementname The name of the HTML form element
Line 686 sub SectionSelect {	Line 857 sub SectionSelect {
# 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 (@SelectedSections) {	foreach (&get_selected_sections()) {
if ($s eq $_) {	if ($s eq $_) {
$Str .= 'selected ';	$Str .= 'selected ';
last;	last;
Line 698 sub SectionSelect {	Line 869 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 {
	my ($elementname,$status,$numvisible)=@_;
	if ($numvisible < 1) {
	return;
	}
	#
	# Make sure we have the data we need to continue
	if (! @Groups) {
	&PrepareClasslist();
	}
	#
	# Build the form element
	my $Str = "\n";
	$Str .= '<select name="'.$elementname.'" ';
	if ($status ne 'single') {
	$Str .= 'multiple="true" ';
	}
	$Str .= 'size="'.$numvisible.'" >'."\n";
	#
	# Loop through the groups
	foreach my $s (@Groups) {
	$Str .= ' <option value="'.$s.'" ';
	foreach my $group (&get_selected_groups()) {
	if ($s eq $group) {
	$Str .= 'selected ';
	last;
	}
	}
	$Str .= '>'.$s."</option>\n";
	}
	$Str .= "</select>\n";
	}


##################################################	##################################################
##################################################	##################################################
sub DisplayClasslist {	sub DisplayClasslist {
Line 707 sub DisplayClasslist {	Line 937 sub DisplayClasslist {
#	#
# 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 .= &Apache::lonhtmlcommon::breadcrumbs('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>';
$Str .= '<th align="center"><b>'.&mt('Enrollment Status').'</b></th>';	$Str .= '<th align="center"><b>'.&mt('Groups').'</b></th>';
	$Str .= '<th align="center"><b>'.&mt('Access Status').'</b></th>';
$Str .= '</tr>'.$/;	$Str .= '</tr>'.$/;
$Str .= '<tr>';	$Str .= '<tr>';
$Str .= '<td>'.	$Str .= '<td>'.
&Apache::lonstatistics::SectionSelect('Section','multiple',5).	&Apache::lonstatistics::SectionSelect('Section','multiple',5).
'</td>';	'</td>';
	$Str .= '<td>'.
	&Apache::lonstatistics::GroupSelect('Group','multiple',5).
	'</td>';
$Str .= '<td>'.	$Str .= '<td>'.
&Apache::lonhtmlcommon::StatusOptions(undef,undef,5).	&Apache::lonhtmlcommon::StatusOptions(undef,undef,5).
'</td>';	'</td>';
Line 728 sub DisplayClasslist {	Line 962 sub DisplayClasslist {
$r->print($Str);	$r->print($Str);
$r->rflush();	$r->rflush();
#	#
my @Fields = ('fullname','username','domain','id','section','status');	my @Fields = ('fullname','username','domain','id','section','status','groups');
#	#
$Str = '';	$Str = '';
	my @selected_sections = &get_selected_sections();
if (! @Students) {	if (! @Students) {
if ($SelectedSections[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 780 sub DisplayClasslist {	Line 1024 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>';
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 .= &Apache::lonnet::escape('student_assessment');	$Str .= &escape('student_assessment');
$Str .= '&sort='.&Apache::lonnet::escape($ENV{'form.sort'});	$Str .= '&sort='.&escape($env{'form.sort'});
$Str .= '&SelectedStudent=';	$Str .= '&SelectedStudent=';
$Str .= &Apache::lonnet::escape($sname).'">';	$Str .= &escape($sname).'">';
$Str .= $student->{$field}.'&nbsp';	$Str .= $student->{$field}.'&nbsp';
$Str .= '</a>';	$Str .= '</a>';
} elsif ($field eq 'status') {	} elsif ($field eq 'status') {
Line 809 sub DisplayClasslist {	Line 1047 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();
Line 854 sub CreateMainMenu {	Line 1092 sub CreateMainMenu {
short_description =>	short_description =>
&mt('Display a histogram of student performance in the course.'),	&mt('Display a histogram of student performance in the course.'),
},	},
	# { internal_name => 'grading_analysis',
	# name => &mt('Detailed Grading Analysis'),
	# short_description =>
	# &mt('Display statistics about who graded who.'),
	# },
# { internal_name => 'student_assessment',	# { internal_name => 'student_assessment',
# name => &mt('Problem Status Chart'),	# name => &mt('Problem Status Chart'),
# short_description =>	# short_description =>
Line 889 sub handler {	Line 1132 sub handler {
if ($loaderror) { return $loaderror; }	if ($loaderror) { return $loaderror; }
$loaderror=	$loaderror=
&Apache::lonnet::overloaderror($r,	&Apache::lonnet::overloaderror($r,
$ENV{'course.'.$ENV{'request.course.id'}.'.home'});	$env{'course.'.$env{'request.course.id'}.'.home'});
if ($loaderror) { return $loaderror; }	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'}=
$r->uri.":vgr:0:0:Cannot view grades for complete course";	$r->uri.":vgr:0:0:Cannot view grades for complete course";
if (! &Apache::lonnet::allowed('vgr',	if (! &Apache::lonnet::allowed('vgr',
$ENV{'request.course.id'}.'/'.$ENV{'request.course.sec'})) {	$env{'request.course.id'}.'/'.$env{'request.course.sec'})) {
$ENV{'user.error.msg'}=	$env{'user.error.msg'}=
$r->uri.":vgr:0:0:Cannot view grades with given role";	$r->uri.":vgr:0:0:Cannot view grades with given role";
return HTTP_NOT_ACCEPTABLE;	return HTTP_NOT_ACCEPTABLE;
}	}
Line 924 sub handler {	Line 1167 sub handler {
td.essay { border: 1px solid gray; }	td.essay { border: 1px solid gray; }
</style>	</style>
ENDSTYLE	ENDSTYLE
my $html=&Apache::lonxml::xmlbegin();
$r->print($html.'<head><title>'.	$r->print(&Apache::loncommon::start_page('Course Statistics and Charts',
&mt('Course Statistics and Charts').	$style));
'</title>'.$style.
"</head>\n".
&Apache::loncommon::bodytag('Course Statistics and Charts'));
$r->rflush();	$r->rflush();
#	#
# Either print out a menu for them or send them to a report	# Either print out a menu for them or send them to a report
Line 939 ENDSTYLE	Line 1179 ENDSTYLE
text =>'Statistics',	text =>'Statistics',
faq=>139,	faq=>139,
bug=>'Statistics and Charts'});	bug=>'Statistics and Charts'});
if (! exists($ENV{'form.reportSelected'}) \|\|	if (! exists($env{'form.reportSelected'}) \|\|
$ENV{'form.reportSelected'} eq '') {	$env{'form.reportSelected'} eq '') {
$r->print(&Apache::lonhtmlcommon::breadcrumbs	$r->print(&Apache::lonhtmlcommon::breadcrumbs('Statistics Main Page').
(undef,&mt('Statistics Main Page')).
&CreateMainMenu());	&CreateMainMenu());
} else {	} else {
#	#
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><font color="Red">'.	$r->print('<h2 class="LC_error">'.
&mt('Unable to connect to database!').	&mt('Unable to connect to database!').
'</font></h2>');	'</h2>');
$r->print('<p>'.	$r->print('<p>'
&mt('Please notify the server administrator ').	.&mt('Please notify the server administrator [_1]',
'<b>'.$serveradmin.'</b></p>');	,'<b>'.$serveradmin.'</b>')
	.'</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('</body></html>');	$r->print(&Apache::loncommon::end_page());
return;	return;
}	}
#	#
# 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{'requres.course.id'});
}	}
#	#
# Begin form output	# Begin form output
Line 973 ENDSTYLE	Line 1213 ENDSTYLE
$r->print('method="post" action="/adm/statistics">');	$r->print('method="post" action="/adm/statistics">');
$r->rflush();	$r->rflush();
#	#
my $GoToPage = $ENV{'form.reportSelected'};	my $GoToPage = $env{'form.reportSelected'};
#	#
$r->print('<input type="hidden" name="reportSelected" value="'.	$r->print('<input type="hidden" name="reportSelected" value="'.
$GoToPage.'">');	$GoToPage.'">');
Line 1018 ENDSTYLE	Line 1258 ENDSTYLE
({href=>'/adm/statistics?reportselected=student_assessment',	({href=>'/adm/statistics?reportselected=student_assessment',
text=>'Chart'});	text=>'Chart'});
&Apache::lonstudentassessment::BuildStudentAssessmentPage($r,$c);	&Apache::lonstudentassessment::BuildStudentAssessmentPage($r,$c);
}	} elsif($GoToPage eq 'grading_analysis') {
	&Apache::lonhtmlcommon::add_breadcrumb
	({href=>'/adm/statistics?reportselected=grading_anaylsis',
	text=>'Grading Analysis'});
	&Apache::longradinganalysis::build_grading_analysis_page($r,$c);
	}
#	#
$r->print("</form>\n");	$r->print("</form>\n");
}	}
$r->print("</body>\n</html>\n");	$r->print(&Apache::loncommon::end_page());
$r->rflush();	$r->rflush();
#	#
return OK;	return OK;

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.115
changed lines
	Added in v.1.143