version 1.34, 2002/07/26 19:49:26
|
version 1.37, 2002/07/30 21:31:48
|
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 51 use Apache::lonchart;
|
Line 51 use Apache::lonchart;
|
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 129 sub ProcessFormData{
|
Line 128 sub ProcessFormData{
|
} |
} |
} |
} |
|
|
|
$cache->{'reportKey'} = 'false'; |
|
if($cache->{'reportSelected'} eq 'Analyze') { |
|
$cache->{'reportKey'} = 'Analyze'; |
|
} |
|
|
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'); |
&CheckFormElement($cache, 'Interval', 'Interval', '1'); |
} elsif(/form\.HeadingColumn/) { |
} elsif(/form\.HeadingColumn/) { |
Line 435 sub Close_PrgWin {
|
Line 436 sub Close_PrgWin {
|
$r->rflush(); |
$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; |
|
} |
|
|
|
sub BuildClasslist { |
sub BuildClasslist { |
my ($cacheDB,$students,$studentInformation,$headings)=@_; |
my ($cacheDB,$students,$studentInformation,$headings)=@_; |
Line 570 sub BuildStatistics {
|
Line 551 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); |
|
my ($returnValue, $students) = &PrepareData($c, $cacheDB, |
my ($returnValue, $students) = &PrepareData($c, $cacheDB, |
\@studentInformation, |
\@studentInformation, |
\@headings); |
\@headings); |
Line 583 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'}) && $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'} = 'Problem Analysis'; |
Line 604 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') { |
$r->print( |
|
&Apache::lonproblemstatistics::BuildProblemStatisticsPage($cacheDB, |
&Apache::lonproblemstatistics::BuildProblemStatisticsPage($cacheDB, |
$students, |
$students, |
$courseID, |
$courseID, |
$c,$r, |
$c,$r); |
\%color)); |
|
} elsif($GoToPage eq 'Problem Analysis') { |
} elsif($GoToPage eq 'Problem Analysis') { |
$r->print( |
$r->print( |
&Apache::lonproblemanalysis::BuildProblemAnalysisPage($cacheDB)); |
&Apache::lonproblemanalysis::BuildProblemAnalysisPage($cacheDB)); |
} elsif($GoToPage eq 'Student Assessment') { |
} elsif($GoToPage eq 'Student Assessment') { |
$r->print( |
$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, |
$r->print(&Apache::lonproblemanalysis::BuildAnalyzePage($cacheDB, |
$students, |
$students, |
$courseID)); |
$courseID,$r)); |
} elsif($GoToPage eq 'DoDiffGraph') { |
} elsif($GoToPage eq 'DoDiffGraph') { |
&Apache::lonproblemstatistics::BuildDiffGraph($r); |
&Apache::lonproblemstatistics::BuildDiffGraph($r); |
} elsif($GoToPage eq 'PercentWrongGraph') { |
} elsif($GoToPage eq 'PercentWrongGraph') { |