Return to lonstatistics.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonstatistics.pm between versions 1.34 and 1.49

version 1.34, 2002/07/26 19:49:26	version 1.49, 2002/08/30 15:35:08
Line 31	Line 31
# 11/1,11/4,11/16,12/14,12/16,12/18,12/20,12/31 Behrouz Minaei	# 11/1,11/4,11/16,12/14,12/16,12/18,12/20,12/31 Behrouz Minaei
# YEAR=2002	# YEAR=2002
# 1/22,2/1,2/6,2/25,3/2,3/6,3/17,3/21,3/22,3/26,4/7,5/6 Behrouz Minaei	# 1/22,2/1,2/6,2/25,3/2,3/6,3/17,3/21,3/22,3/26,4/7,5/6 Behrouz Minaei
# 5/12,5/14,5/15,5/19,5/26,7/16,25/7 Behrouz Minaei	# 5/12,5/14,5/15,5/19,5/26,7/16,25/7,29/7 Behrouz Minaei
#	#
###	###

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::lonchart;	use Apache::lonpercentage;
use HTML::TokeParser;	use HTML::TokeParser;
use GDBM_File;	use GDBM_File;

#my $jr;

sub CheckFormElement {	sub CheckFormElement {
my ($cache, $ENVName, $cacheName, $default)=@_;	my ($cache, $ENVName, $cacheName, $default)=@_;
Line 73 sub ProcessFormData{	Line 72 sub ProcessFormData{
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},	&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
['sort','download',	['sort','download',
'reportSelected',	'reportSelected',
'StudentAssessmentStudent']);	'StudentAssessmentStudent',
	'ProblemStatisticsSort']);
&CheckFormElement($cache, 'Status', 'Status', 'Active');	&CheckFormElement($cache, 'Status', 'Status', 'Active');
&CheckFormElement($cache, 'postdata', 'reportSelected', 'Class list');	&CheckFormElement($cache, 'postdata', 'reportSelected', 'Class list');
&CheckFormElement($cache, 'reportSelected', 'reportSelected',	&CheckFormElement($cache, 'reportSelected', 'reportSelected',
Line 83 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
if(defined($ENV{'form.CreateStudentAssessment'}) \|\|	if(defined($ENV{'form.CreateStudentAssessment'}) \|\|
defined($ENV{'form.NextStudent'}) \|\|	defined($ENV{'form.NextStudent'}) \|\|
defined($ENV{'form.PreviousStudent'})) {	defined($ENV{'form.PreviousStudent'})) {
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'})) {	# Problem analysis
my @sectionsSelected = (ref($ENV{'form.Section'}) ?	&CheckFormElement($cache, 'Interval', 'Interval', '1');
@{$ENV{'form.Section'}} :
($ENV{'form.Section'}));	# ProblemStatistcs
$cache->{'sectionsSelected'} = join(':', @sectionsSelected);	&CheckFormElement($cache, 'DisplayCSVFormat',
} elsif(!defined($cache->{'sectionsSelected'})) {	'DisplayFormat', 'Display Table Format');
$cache->{'sectionsSelected'} = $cache->{'sectionList'};	&CheckFormElement($cache, 'ProblemStatisticsAscend',
}	'ProblemStatisticsAscend', 'Ascending');
	&CheckFormElement($cache, 'ProblemStatisticsSort',
	'ProblemStatisticsSort', 'Homework Sets Order');
	&CheckFormElement($cache, 'DisplayLegend', 'DisplayLegend',
	'Hide Legend');
	&CheckFormElement($cache, 'SortProblems', 'SortProblems',
	'Sort Within Sequence');

	# Search only form elements
my @headingColumns=();	my @headingColumns=();
my @sequenceColumns=();	my @sequenceColumns=();
my $foundColumn = 0;	my $foundColumn = 0;
Line 129 sub ProcessFormData{	Line 151 sub ProcessFormData{
}	}
}	}

	$cache->{'reportKey'} = 'false';
	if($cache->{'reportSelected'} eq 'Analyze') {
	$cache->{'reportKey'} = 'Analyze';
	} elsif($cache->{'reportSelected'} eq 'DoDiffGraph') {
	$cache->{'reportKey'} = 'DoDiffGraph';
	} elsif($cache->{'reportSelected'} eq 'PercentWrongGraph') {
	$cache->{'reportKey'} = 'PercentWrongGraph';
	}

	if(defined($ENV{'form.DoDiffGraph'})) {
	$cache->{'reportSelected'} = 'DoDiffGraph';
	$cache->{'reportKey'} = 'DoDiffGraph';
	} elsif(defined($ENV{'form.PercentWrongGraph'})) {
	$cache->{'reportSelected'} = 'PercentWrongGraph';
	$cache->{'reportKey'} = 'PercentWrongGraph';
	}

foreach (keys(%ENV)) {	foreach (keys(%ENV)) {
if(/form\.Analyze:::/) {	if(/form\.Analyze/) {
# $cache->{'reportSelected'} = 'Analyze';	$cache->{'reportSelected'} = 'Analyze';
# $cache->{'reportKey'} = 'Problem Analysis';	$cache->{'reportKey'} = 'Analyze';
my ($uri, $title, $part, $problem);	my $data;
(undef, $uri, $title, $part, $problem)=split(':::', $_);	(undef, $data)=split(':::', $_);
$cache->{'AnalyzeURI'} = $uri;	$cache->{'AnalyzeInfo'}=$data;
$cache->{'AnalyzeTitle'} = $title;
$cache->{'AnalyzePart'} = $part;
$cache->{'AnalyzeProblem'} = $problem;

&CheckFormElement($cache, 'Interval', 'Interval', '1');
} elsif(/form\.HeadingColumn/) {	} elsif(/form\.HeadingColumn/) {
my $value = $_;	my $value = $_;
$value =~ s/form\.//;	$value =~ s/form\.//;
Line 169 sub ProcessFormData{	Line 203 sub ProcessFormData{
$cache->{'DefaultColumns'} = 'false';	$cache->{'DefaultColumns'} = 'false';

return;	return;

# Select page to display
if(defined($ENV{'form.ProblemStatistics'}) \|\|
defined($ENV{'form.ProblemStatisticsRecalculate'}) \|\|
defined($ENV{'form.DisplayCSVFormat'})) {
$cache->{'GoToPage'} = 'ProblemStatistics';
&CheckFormElement($cache, 'DisplayCSVFormat',
'DisplayFormat', 'Display Table Format');
&CheckFormElement($cache, 'Ascend','ProblemStatisticsAscend',
'Ascending');
&CheckFormElement($cache, 'Maps', 'ProblemStatisticsMap',
'All Maps');
} elsif(defined($ENV{'form.ProblemAnalysis'})) {
$cache->{'GoToPage'} = 'ProblemAnalysis';
&CheckFormElement($cache, 'Interval', 'Interval', '1');
} elsif(defined($ENV{'form.DoDiffGraph'})) {
$cache->{'GoToPage'} = 'DoDiffGraph';
} elsif(defined($ENV{'form.PercentWrongGraph'})) {
$cache->{'GoToPage'} = 'PercentWrongGraph';
} elsif(defined($ENV{'form.ActivityLog'})) {
$cache->{'GoToPage'} = 'ActivityLog';
} else {
$cache->{'GoToPage'} = 'Menu';
}

&CheckFormElement($cache, 'Status', 'Status', 'Active');

return;
}	}

=pod	=pod
Line 297 sub SpaceColumns {	Line 303 sub SpaceColumns {
}	}

sub PrepareData {	sub PrepareData {
my ($c, $cacheDB, $studentInformation, $headings)=@_;	my ($c, $cacheDB, $studentInformation, $headings,$r)=@_;

# Test for access to the cache data	# Test for access to the cache data
my $courseID=$ENV{'request.course.id'};	my $courseID=$ENV{'request.course.id'};
Line 314 sub PrepareData {	Line 320 sub PrepareData {

# Download class list information if not using cached data	# Download class list information if not using cached data
my %cache;	my %cache;
unless(tie(%cache,'GDBM_File',$cacheDB,&GDBM_WRCREAT,0640)) {	unless(tie(%cache,'GDBM_File',$cacheDB,&GDBM_WRCREAT(),0640)) {
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);	&Apache::loncoursedata::ProcessTopResourceMap(\%cache, $c, $r);
if($processTopResourceMapReturn ne 'OK') {	if($processTopResourceMapReturn ne 'OK') {
untie(%cache);	untie(%cache);
return $processTopResourceMapReturn;	return $processTopResourceMapReturn;
Line 359 sub PrepareData {	Line 365 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 $courseData =	my @allStudents=();
&Apache::loncoursedata::DownloadCourseInformation(	if($download ne 'false') {
$who, $courseID,
$cache{$who.':lastDownloadTime'});
&Apache::loncoursedata::ProcessStudentData(\%cache, $courseData, $who);
$cache{'download'} = 'false';	$cache{'download'} = 'false';
} elsif($cache{'DownloadAll'} ne 'false') {	} elsif($downloadAll ne 'false') {
my @allStudents;	$cache{'DownloadAll'} = 'false';
if($cache{'DownloadAll'} eq 'sorted') {	if($downloadAll eq 'sorted') {
@allStudents = @$students;	@allStudents = @$students;
} else {	} else {
@allStudents = split(':::', $cache{'NamesOfStudents'});	@allStudents = split(':::', $cache{'NamesOfStudents'});
}	}
foreach (@allStudents) {
my $courseData =
&Apache::loncoursedata::DownloadCourseInformation(
$_, $courseID,
$cache{$_.':lastDownloadTime'});
&Apache::loncoursedata::ProcessStudentData(\%cache, $courseData,
$_);
if($c->aborted()) {
untie(%cache);
return 'aborted';
}
}
$cache{'DownloadAll'} = 'false';
}

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

untie(%cache);	untie(%cache);

return ('OK', $students);	if($download ne 'false') {
}	my @who = ($download);
	if(&Apache::loncoursedata::DownloadStudentCourseData(\@who, 'false',
	$cacheDB, 'true',
# Create progress	'false', $courseID,
sub Create_PrgWin {	$r, $c) ne 'OK') {
my ($r)=@_;	return 'Stop at download individual';
$r->print(<<ENDPOP);	}
<script>	} elsif($downloadAll ne 'false') {
popwin=open('','popwin','width=400,height=100');	if(&Apache::loncoursedata::DownloadStudentCourseData(\@allStudents,
popwin.document.writeln('<html><body bgcolor="#88DDFF">'+	'false',
'<title>LON-CAPA Statistics</title>'+	$cacheDB, 'true',
'<h4>Computation Progress</h4>'+	'true', $courseID,
'<form name=popremain>'+	$r, $c) ne 'OK') {
'<input type=text size=35 name=remaining value=Starting></form>'+	return 'Stop at download all';
'</body></html>');	}
popwin.document.close();
</script>
ENDPOP

$r->rflush();
}

# update progress
sub Update_PrgWin {
my ($totalStudents,$index,$name,$r)=@_;
$r->print('<script>popwin.document.popremain.remaining.value="'.
'Computing '.$index.'/'.$totalStudents.': '.
$name.'";</script>');
$r->rflush();
}

# close Progress Line
sub Close_PrgWin {
my ($r)=@_;
$r->print('<script>popwin.close()</script>');
$r->rflush();
}

# For loading the colored table for display or un-colored for print
sub setbgcolor {
my $PrintTable=shift;
my %color;
if ($PrintTable){
$color{"gb"}="#FFFFFF";
$color{"red"}="#FFFFFF";
$color{"yellow"}="#FFFFFF";
$color{"green"}="#FFFFFF";
$color{"purple"}="#FFFFFF";
} else {
$color{"gb"}="#DDFFFF";
$color{"red"}="#FFDDDD";
$color{"yellow"}="#EEFFCC";
$color{"green"}="#DDFFDD";
$color{"purple"}="#FFDDFF";
}	}

return \%color;	return ('OK', $students);
}	}

sub BuildClasslist {	sub BuildClasslist {
my ($cacheDB,$students,$studentInformation,$headings)=@_;	my ($cacheDB,$students,$studentInformation,$headings,$r)=@_;

my %cache;	my %cache;
unless(tie(%cache,'GDBM_File',$cacheDB,&GDBM_READER,0640)) {	unless(tie(%cache,'GDBM_File',$cacheDB,&GDBM_READER(),0640)) {
return '<html><body>Unable to tie database.</body></html>';	return '<html><body>Unable to tie database.</body></html>';
}	}

Line 470 sub BuildClasslist {	Line 416 sub BuildClasslist {

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, $studentInformation,	$Str .= &Apache::lonhtmlcommon::CreateHeadings(\%cache,
	$studentInformation,
$headings, $displayString);	$headings, $displayString);
$Str .= '</tr>'."\n";	$Str .= '</tr>'."\n";

my $alternate=0;	my $alternate=0;
foreach (@$students) {	foreach (@$students) {
my ($username, $domain) = split(':', $_);	my ($username, $domain) = split(':', $_);
Line 507 sub BuildClasslist {	Line 455 sub BuildClasslist {

$Str .= '</tr>'."\n";	$Str .= '</tr>'."\n";
$Str .= '</table></td></tr></table>'."\n";	$Str .= '</table></td></tr></table>'."\n";
	$r->print($Str);
	$r->rflush();

untie(%cache);	untie(%cache);

return $Str;	return;
}	}

sub CreateMainMenu {	sub CreateMainMenu {
Line 563 sub BuildStatistics {	Line 513 sub BuildStatistics {
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' => 'Percentage Graphs',
	# 'activitylog' => 'Activity Log',
'reportSelected' => 'Class list');	'reportSelected' => 'Class list');

my %cache;	my %cache;
Line 570 sub BuildStatistics {	Line 522 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";

my %color=&setbgcolor(0);	$r->print(&Apache::lonhtmlcommon::Title('Course Statistics and Charts'));

my ($returnValue, $students) = &PrepareData($c, $cacheDB,	my ($returnValue, $students) = &PrepareData($c, $cacheDB,
\@studentInformation,	\@studentInformation,
\@headings);	\@headings,$r);
if($returnValue ne 'OK') {	if($returnValue ne 'OK') {
$r->print('<html><body>'.$returnValue."\n".'</body></html>');	$r->print($returnValue."\n".'</body></html>');
return OK;	return OK;
}	}
	if(!$c->aborted()) {
	&Apache::loncoursedata::CheckForResidualDownload($cacheDB,
	'true', 'true',
	$courseID,
	$r, $c);
	}

my $GoToPage;	my $GoToPage;
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'}) && $cache{'reportKey'} ne 'false') {	if(defined($cache{'reportKey'}) &&
# $reports{$cache{'reportKey'}} = $cache{'reportSelected'};	!exists($reports{$cache{'reportKey'}}) &&
# }	$cache{'reportKey'} ne 'false') {
	$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(&Apache::lonhtmlcommon::Title('LON-CAPA Statistics'));
$r->print('<form name="Statistics" ');	$r->print('<form name="Statistics" ');
$r->print('method="post" action="/adm/statistics">');	$r->print('method="post" action="/adm/statistics">');
$r->print(&CreateMainMenu($cache{'Status'}, \%reports));	$r->print(&CreateMainMenu($cache{'Status'}, \%reports));
	$r->rflush();
untie(%cache);	untie(%cache);
} else {	} else {
$r->print('<html><body>Unable to tie database.</body></html>');	$r->print('<html><body>Unable to tie database.</body></html>');
Line 604 sub BuildStatistics {	Line 565 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') {
$r->print(
&Apache::lonproblemstatistics::BuildProblemStatisticsPage($cacheDB,	&Apache::lonproblemstatistics::BuildProblemStatisticsPage($cacheDB,
$students,	$students,
$courseID,	$courseID,
$c,$r,	$c,$r);
\%color));	} elsif($GoToPage eq 'Option Response Analysis') {
} elsif($GoToPage eq 'Problem Analysis') {	&Apache::lonproblemanalysis::BuildProblemAnalysisPage($cacheDB, $r);
$r->print(
&Apache::lonproblemanalysis::BuildProblemAnalysisPage($cacheDB));
} elsif($GoToPage eq 'Student Assessment') {	} elsif($GoToPage eq 'Student Assessment') {
$r->print(	&Apache::lonstudentassessment::BuildStudentAssessmentPage($cacheDB,
&Apache::lonstudentassessment::BuildStudentAssessmentPage($cacheDB,	$students,
$students,	$courseID,
$courseID,	'Statistics',
'Statistics',	\@headings,
\@headings,	$spacing,
$spacing,	\@studentInformation,
\@studentInformation,	$r, $c);
$r, $c));
} elsif($GoToPage eq 'Analyze') {	} elsif($GoToPage eq 'Analyze') {
$r->print(&Apache::lonproblemanalysis::BuildAnalyzePage($cacheDB,	&Apache::lonproblemanalysis::BuildAnalyzePage($cacheDB, $students,
$students,	$courseID, $r);
$courseID));	} elsif($GoToPage eq 'DoDiffGraph' \|\| $GoToPage eq 'PercentWrongGraph') {
} elsif($GoToPage eq 'DoDiffGraph') {	my $courseDescription = $ENV{'course.'.$courseID.'.description'};
&Apache::lonproblemstatistics::BuildDiffGraph($r);	$courseDescription =~ s/\ /"_"/eg;
} elsif($GoToPage eq 'PercentWrongGraph') {	&Apache::lonproblemstatistics::BuildGraphicChart($GoToPage, $cacheDB,
&Apache::lonproblemstatistics::BuildWrongGraph($r);	$courseDescription,
	$students, $courseID,
	$r, $c);
} elsif($GoToPage eq 'Class list') {	} elsif($GoToPage eq 'Class list') {
$r->print(&BuildClasslist($cacheDB, $students, \@studentInformation,	&BuildClasslist($cacheDB, $students, \@studentInformation,
\@headings));	\@headings, $r);
	} elsif($GoToPage eq 'Percentage Graphs') {
	&Apache::lonpercentage::BuildPercentageGraph($cacheDB, $students,
	$courseID, $c, $r);
}	}

$r->print('</form>'."\n");	$r->print('</form>'."\n");

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

500 Internal Server Error

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator at root@localhost to inform them of the time this error occurred, and the actions you performed just before this error.

More information about this error may be available in the server error log.

Removed from v.1.34
changed lines
	Added in v.1.49