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.41 and 1.55.2.1

version 1.41, 2002/08/13 00:37:18	version 1.55.2.1, 2003/01/13 20:34:24
Line 35	Line 35
#	#
###	###

package Apache::lonstatistics;	package Apache::lonstatistics;

use strict;	use strict;
use Apache::Constants qw(:common :http);	use Apache::Constants qw(:common :http);
Line 47 use Apache::lonhtmlcommon;	Line 47 use Apache::lonhtmlcommon;
use Apache::lonproblemanalysis;	use Apache::lonproblemanalysis;
use Apache::lonproblemstatistics;	use Apache::lonproblemstatistics;
use Apache::lonstudentassessment;	use Apache::lonstudentassessment;
	use Apache::lonpercentage;
use HTML::TokeParser;	use HTML::TokeParser;
use GDBM_File;	use GDBM_File;

Line 82 sub ProcessFormData{	Line 83 sub ProcessFormData{
&CheckFormElement($cache, 'DownloadAll', 'DownloadAll', 'false');	&CheckFormElement($cache, 'DownloadAll', 'DownloadAll', 'false');
&CheckFormElement($cache, 'sort', 'sort', 'fullname');	&CheckFormElement($cache, 'sort', 'sort', 'fullname');
&CheckFormElement($cache, 'download', 'download', 'false');	&CheckFormElement($cache, 'download', 'download', 'false');
	&CheckFormElement($cache, 'StatisticsMaps',
	'StatisticsMaps', 'All Maps');
	&CheckFormElement($cache, 'StatisticsProblemSelect',
	'StatisticsProblemSelect', 'All Problems');
	&CheckFormElement($cache, 'StatisticsPartSelect',
	'StatisticsPartSelect', 'All Parts');
	if(defined($ENV{'form.Section'})) {
	my @sectionsSelected = (ref($ENV{'form.Section'}) ?
	@{$ENV{'form.Section'}} :
	($ENV{'form.Section'}));
	$cache->{'sectionsSelected'} = join(':', @sectionsSelected);
	} elsif(!defined($cache->{'sectionsSelected'})) {
	$cache->{'sectionsSelected'} = $cache->{'sectionList'};
	}

# student assessment	# student assessment
if(defined($ENV{'form.CreateStudentAssessment'}) \|\|	if(defined($ENV{'form.CreateStudentAssessment'}) \|\|
Line 102 sub ProcessFormData{	Line 117 sub ProcessFormData{
&Apache::lonnet::unescape($cache->{'StudentAssessmentStudent'});	&Apache::lonnet::unescape($cache->{'StudentAssessmentStudent'});
&CheckFormElement($cache, 'DefaultColumns', 'DefaultColumns', 'false');	&CheckFormElement($cache, 'DefaultColumns', 'DefaultColumns', 'false');

if(defined($ENV{'form.Section'})) {
my @sectionsSelected = (ref($ENV{'form.Section'}) ?
@{$ENV{'form.Section'}} :
($ENV{'form.Section'}));
$cache->{'sectionsSelected'} = join(':', @sectionsSelected);
} elsif(!defined($cache->{'sectionsSelected'})) {
$cache->{'sectionsSelected'} = $cache->{'sectionList'};
}

# Problem analysis	# Problem analysis
&CheckFormElement($cache, 'Interval', 'Interval', '1');	&CheckFormElement($cache, 'Interval', 'Interval', '1');

Line 119 sub ProcessFormData{	Line 125 sub ProcessFormData{
'DisplayFormat', 'Display Table Format');	'DisplayFormat', 'Display Table Format');
&CheckFormElement($cache, 'ProblemStatisticsAscend',	&CheckFormElement($cache, 'ProblemStatisticsAscend',
'ProblemStatisticsAscend', 'Ascending');	'ProblemStatisticsAscend', 'Ascending');
&CheckFormElement($cache, 'ProblemStatisticsMaps',
'ProblemStatisticsMaps', 'All Maps');
&CheckFormElement($cache, 'ProblemStatisticsSort',	&CheckFormElement($cache, 'ProblemStatisticsSort',
'ProblemStatisticsSort', 'Homework Sets Order');	'ProblemStatisticsSort', 'Homework Sets Order');
	&CheckFormElement($cache, 'DisplayLegend', 'DisplayLegend',
	'Hide Legend');
	&CheckFormElement($cache, 'SortProblems', 'SortProblems',
	'Sort Within Sequence');

# Search only form elements	# Search only form elements
my @headingColumns=();	my @headingColumns=();
Line 237 sub SortStudents {	Line 245 sub SortStudents {
my $sortBy = '';	my $sortBy = '';
if(defined($cache->{'sort'})) {	if(defined($cache->{'sort'})) {
$sortBy = ':'.$cache->{'sort'};	$sortBy = ':'.$cache->{'sort'};
	} else {
	$sortBy = ':fullname';
}	}
my @order = sort { $cache->{$a.$sortBy} cmp $cache->{$b.$sortBy} \|\|	my @order = sort { lc($cache->{$a.$sortBy}) cmp lc($cache->{$b.$sortBy}) \|\|
$cache->{$a.':fullname'} cmp $cache->{$b.':fullname'} }	lc($cache->{$a.':fullname'}) cmp lc($cache->{$b.':fullname'}) }
@sorted1Students;	@sorted1Students;

return \@order;	return \@order;
Line 304 sub PrepareData {	Line 314 sub PrepareData {
$isRecalculate=1;	$isRecalculate=1;
}	}

my $isCached = &Apache::loncoursedata::TestCacheData($cacheDB,	my $isCached = &Apache::loncoursedata::TestCacheData($cacheDB,
$isRecalculate);	$isRecalculate);
if($isCached < 0) {	if($isCached < 0) {
return "Unable to tie hash to db file.";	return "Unable to tie hash to db file.";
Line 316 sub PrepareData {	Line 326 sub PrepareData {
return "Unable to tie hash to db file.";	return "Unable to tie hash to db file.";
}	}

if(!$isCached) {	# if(!$isCached) {
my $processTopResourceMapReturn=	my $processTopResourceMapReturn=
&Apache::loncoursedata::ProcessTopResourceMap(\%cache, $c, $r);	&Apache::loncoursedata::ProcessTopResourceMap(\%cache, $c);
if($processTopResourceMapReturn ne 'OK') {	if($processTopResourceMapReturn ne 'OK') {
untie(%cache);	untie(%cache);
return $processTopResourceMapReturn;	return $processTopResourceMapReturn;
}	}
}	# }

if($c->aborted()) {	if($c->aborted()) {
untie(%cache);	untie(%cache);
Line 357 sub PrepareData {	Line 367 sub PrepareData {
&SpaceColumns($students, $studentInformation, $headings, \%cache);	&SpaceColumns($students, $studentInformation, $headings, \%cache);
$cache{'updateTime:columnWidth'}=24;	$cache{'updateTime:columnWidth'}=24;

if($cache{'download'} ne 'false') {	my $download = $cache{'download'};
my @who = ($cache{'download'});	my $downloadAll = $cache{'DownloadAll'};
	my @allStudents=();
	if($download ne 'false') {
$cache{'download'} = 'false';	$cache{'download'} = 'false';
if(&Apache::loncoursedata::DownloadStudentCourseData(\@who, 'false',	} elsif($downloadAll ne 'false') {
$cacheDB, 'true',
'false', $courseID,
$r, $c) ne 'OK') {
untie(%cache);
return 'Stop at download individual';
}
} elsif($cache{'DownloadAll'} ne 'false') {
$cache{'DownloadAll'} = 'false';	$cache{'DownloadAll'} = 'false';
my @allStudents;	if($downloadAll eq 'sorted') {
if($cache{'DownloadAll'} eq 'sorted') {
@allStudents = @$students;	@allStudents = @$students;
} else {	} else {
@allStudents = split(':::', $cache{'NamesOfStudents'});	@allStudents = split(':::', $cache{'NamesOfStudents'});
}	}
if(&Apache::loncoursedata::DownloadStudentCourseData(\@allStudents,	}
'false',
$cacheDB, 'true',	untie(%cache);

	if($download ne 'false') {
	my @who = ($download);
	if(&Apache::loncoursedata::DownloadStudentCourseData(\@who, 'false',
	$cacheDB, 'true',
	'false', $courseID,
	$r, $c) ne 'OK') {
	return 'Stop at download individual';
	}
	} elsif($downloadAll ne 'false') {
	if(&Apache::loncoursedata::DownloadStudentCourseData(\@allStudents,
	'false',
	$cacheDB, 'true',
'true', $courseID,	'true', $courseID,
$r, $c) ne 'OK') {	$r, $c) ne 'OK') {
untie(%cache);
return 'Stop at download all';	return 'Stop at download all';
}	}
}	}

if($c->aborted()) {
untie(%cache);
return 'aborted';
}

untie(%cache);

return ('OK', $students);	return ('OK', $students);
}	}

Line 403 sub BuildClasslist {	Line 412 sub BuildClasslist {
return '<html><body>Unable to tie database.</body></html>';	return '<html><body>Unable to tie database.</body></html>';
}	}

	# my $Ptr = '';
	# $Ptr .= '<table border="0"><tbody>';
	# $Ptr .= '<tr><td align="right"><b>Select Sections</b>';
	# $Ptr .= '</td>'."\n";
	# $Ptr .= '<td align="left">'."\n";
	# my @sectionsSelected = split(':',$cache{'sectionsSelected'});
	# my @sections = split(':',$cache{'sectionList'});
	# $Ptr .= &Apache::lonhtmlcommon::MultipleSectionSelect(\@sections,
	# \@sectionsSelected,
	# 'Statistics');
	# $Ptr .= '</td></tr></table><br>';
	# $r->print($Ptr);
	# $r->rflush();
	# my %mySections = ();
	# foreach (@sections) { $mySections{$_} = 'True'; }
	# $r->print("<br>$cache{'sectionsSelected'}<br>");

my $Str='';	my $Str='';
$Str .= '<table border="0"><tr><td bgcolor="#777777">'."\n";	$Str .= '<table border="0"><tr><td bgcolor="#777777">'."\n";
$Str .= '<table border="0" cellpadding="3"><tr bgcolor="#e6ffff">'."\n";	$Str .= '<table border="0" cellpadding="3"><tr bgcolor="#e6ffff">'."\n";

my $displayString = '<td align="left"><a href="/adm/statistics?';	my $displayString = '<td align="left"><a href="/adm/statistics?';
$displayString .= 'sort=LINKDATA">DISPLAYDATA&nbsp</a></td>'."\n";	$displayString .= 'sort=LINKDATA">DISPLAYDATA&nbsp</a></td>'."\n";
$Str .= &Apache::lonhtmlcommon::CreateHeadings(\%cache,	$Str .= &Apache::lonhtmlcommon::CreateHeadings(\%cache,
$studentInformation,	$studentInformation,
$headings, $displayString);	$headings, $displayString);
$Str .= '</tr>'."\n";	$Str .= '</tr>'."\n";

my $alternate=0;	my $alternate=0;
foreach (@$students) {	foreach (@$students) {
	# if ($mySections{$cache{$_.':'.'section'}} ne 'True') {next;}
my ($username, $domain) = split(':', $_);	my ($username, $domain) = split(':', $_);
if($alternate) {	if($alternate) {
$Str .= '<tr bgcolor="#ffffe6">';	$Str .= '<tr bgcolor="#ffffe6">';
Line 463 sub CreateMainMenu {	Line 490 sub CreateMainMenu {

$Str .= '<table border="0"><tbody><tr>'."\n";	$Str .= '<table border="0"><tbody><tr>'."\n";
$Str .= '<td></td><td></td>'."\n";	$Str .= '<td></td><td></td>'."\n";
$Str .= '<td align="center"><b>Analysis Reports:</b></td>'."\n";	$Str .= '<td align="center"><b>Select a Report</b></td>'."\n";
$Str .= '<td align="center"><b>Student Status:</b></td></tr>'."\n";	$Str .= '<td align="center"><b>Student Status</b></td></tr>'."\n";
$Str .= '<tr>'."\n";	$Str .= '<tr>'."\n";
$Str .= '<td align="center"><input type="submit" name="Refresh" ';	$Str .= '<td align="center"><input type="submit" name="Refresh" ';
$Str .= 'value="Refresh" /></td>'."\n";	$Str .= 'value="Refresh" /></td>'."\n";
Line 503 sub BuildStatistics {	Line 530 sub BuildStatistics {
my @headings=('Full Name', 'Section', 'PID', 'Domain', 'User Name',	my @headings=('Full Name', 'Section', 'PID', 'Domain', 'User Name',
'Last Updated');	'Last Updated');
my $spacing = ' ';	my $spacing = ' ';

my %reports = ('classlist' => 'Class list',	my %reports = ('classlist' => 'Class list',
'problem_statistics' => 'Problem Statistics',	'problem_statistics' => 'Problem Statistics',
'student_assessment' => 'Student Assessment',	'student_assessment' => 'Student Assessment',
	'percentage' => 'Correct-problems Plot',
# 'activitylog' => 'Activity Log',	# 'activitylog' => 'Activity Log',
'reportSelected' => 'Class list');	'reportSelected' => 'Class list');

Line 514 sub BuildStatistics {	Line 543 sub BuildStatistics {
my $cacheDB = "/home/httpd/perl/tmp/$ENV{'user.name'}".	my $cacheDB = "/home/httpd/perl/tmp/$ENV{'user.name'}".
"_$ENV{'user.domain'}_$courseID\_statistics.db";	"_$ENV{'user.domain'}_$courseID\_statistics.db";

$r->print(&Apache::lonhtmlcommon::Title('LON-CAPA Statistics'));	$r->print(&Apache::lonhtmlcommon::Title('Course Statistics and Charts'));

my ($returnValue, $students) = &PrepareData($c, $cacheDB,	my ($returnValue, $students) = &PrepareData($c, $cacheDB,
\@studentInformation,	\@studentInformation,
\@headings,$r);	\@headings,$r);
if($returnValue ne 'OK') {	if($returnValue ne 'OK') {
$r->print($returnValue."\n".'</body></html>');	$r->print($returnValue."\n".'</body></html>');
return OK;	return OK;
}	}
if(!$c->aborted()) {	if(!$c->aborted()) {
&Apache::loncoursedata::CheckForResidualDownload($cacheDB,	&Apache::loncoursedata::CheckForResidualDownload($cacheDB,
'true', 'true',	'true', 'true',
$courseID,	$courseID,
$r, $c);	$r, $c);
Line 534 sub BuildStatistics {	Line 563 sub BuildStatistics {
if(tie(%cache,'GDBM_File',$cacheDB,&GDBM_READER(),0640)) {	if(tie(%cache,'GDBM_File',$cacheDB,&GDBM_READER(),0640)) {
$GoToPage = $cache{'reportSelected'};	$GoToPage = $cache{'reportSelected'};
$reports{'reportSelected'} = $cache{'reportSelected'};	$reports{'reportSelected'} = $cache{'reportSelected'};
if(defined($cache{'reportKey'}) &&	if(defined($cache{'reportKey'}) &&
!exists($reports{$cache{'reportKey'}}) &&	!exists($reports{$cache{'reportKey'}}) &&
$cache{'reportKey'} ne 'false') {	$cache{'reportKey'} ne 'false') {
$reports{$cache{'reportKey'}} = $cache{'reportSelected'};	$reports{$cache{'reportKey'}} = $cache{'reportSelected'};
}	}

if(defined($cache{'OptionResponses'})) {	if(defined($cache{'OptionResponses'})) {
$reports{'problem_analysis'} = 'Problem Analysis';	$reports{'problem_analysis'} = 'Option Response Analysis';
}	}

$r->print('<form name="Statistics" ');	$r->print('<form name="Statistics" ');
Line 557 sub BuildStatistics {	Line 586 sub BuildStatistics {
if($GoToPage eq 'Activity Log') {	if($GoToPage eq 'Activity Log') {
&Apache::lonproblemstatistics::Activity();	&Apache::lonproblemstatistics::Activity();
} elsif($GoToPage eq 'Problem Statistics') {	} elsif($GoToPage eq 'Problem Statistics') {
&Apache::lonproblemstatistics::BuildProblemStatisticsPage($cacheDB,	&Apache::lonproblemstatistics::BuildProblemStatisticsPage($cacheDB,
$students,	$students,
$courseID,	$courseID,
$c,$r);	$c,$r);
} elsif($GoToPage eq 'Problem Analysis') {	} elsif($GoToPage eq 'Option Response Analysis') {
&Apache::lonproblemanalysis::BuildProblemAnalysisPage($cacheDB, $r);	&Apache::lonproblemanalysis::BuildProblemAnalysisPage($cacheDB, $r);
} elsif($GoToPage eq 'Student Assessment') {	} elsif($GoToPage eq 'Student Assessment') {
&Apache::lonstudentassessment::BuildStudentAssessmentPage($cacheDB,	&Apache::lonstudentassessment::BuildStudentAssessmentPage($cacheDB,
Line 573 sub BuildStatistics {	Line 602 sub BuildStatistics {
\@studentInformation,	\@studentInformation,
$r, $c);	$r, $c);
} elsif($GoToPage eq 'Analyze') {	} elsif($GoToPage eq 'Analyze') {
&Apache::lonproblemanalysis::BuildAnalyzePage($cacheDB, $students,	&Apache::lonproblemanalysis::BuildAnalyzePage($cacheDB, $students,
$courseID, $r);	$courseID, $r);
} elsif($GoToPage eq 'DoDiffGraph' \|\| $GoToPage eq 'PercentWrongGraph') {	} elsif($GoToPage eq 'DoDiffGraph' \|\| $GoToPage eq 'PercentWrongGraph') {
&Apache::lonproblemstatistics::BuildGraphicChart($GoToPage,$r,$cacheDB);	my $courseDescription = $ENV{'course.'.$courseID.'.description'};
	$courseDescription =~ s/\ /"_"/eg;
	&Apache::lonproblemstatistics::BuildGraphicChart($GoToPage, $cacheDB,
	$courseDescription,
	$students, $courseID,
	$r, $c);
} elsif($GoToPage eq 'Class list') {	} elsif($GoToPage eq 'Class list') {
&BuildClasslist($cacheDB, $students, \@studentInformation,	&BuildClasslist($cacheDB, $students, \@studentInformation,
\@headings, $r);	\@headings, $r);
	} elsif($GoToPage eq 'Correct-problems Plot') {
	&Apache::lonpercentage::BuildPercentageGraph($cacheDB, $students,
	$courseID, $c, $r);
}	}

$r->print('</form>'."\n");	$r->print('</form>'."\n");
Line 596 sub handler {	Line 633 sub handler {

# $jr = $r;	# $jr = $r;

	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; }

unless(&Apache::lonnet::allowed('vgr',$ENV{'request.course.id'})) {	unless(&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";
return HTTP_NOT_ACCEPTABLE;	return HTTP_NOT_ACCEPTABLE;
}	}

# Set document type for header only	# Set document type for header only
Line 617 sub handler {	Line 661 sub handler {
unless($ENV{'request.course.fn'}) {	unless($ENV{'request.course.fn'}) {
my $requrl=$r->uri;	my $requrl=$r->uri;
$ENV{'user.error.msg'}="$requrl:bre:0:0:Course not initialized";	$ENV{'user.error.msg'}="$requrl:bre:0:0:Course not initialized";
return HTTP_NOT_ACCEPTABLE;	return HTTP_NOT_ACCEPTABLE;
}	}

$r->content_type('text/html');	$r->content_type('text/html');

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

Removed from v.1.41
changed lines
	Added in v.1.55.2.1