version 1.35, 2002/07/29 21:00:53
|
version 1.37, 2002/07/30 21:31:48
|
Line 128 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 561 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 582 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); |
} 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') { |