version 1.44, 2002/08/14 16:18:55
|
version 1.47.2.1, 2002/09/03 01:32:10
|
Line 123 sub ProcessFormData{
|
Line 123 sub ProcessFormData{
|
&CheckFormElement($cache, 'ProblemStatisticsSort', |
&CheckFormElement($cache, 'ProblemStatisticsSort', |
'ProblemStatisticsSort', 'Homework Sets Order'); |
'ProblemStatisticsSort', 'Homework Sets Order'); |
&CheckFormElement($cache, 'DisplayLegend', 'DisplayLegend', 'Hide Legend'); |
&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 316 sub PrepareData {
|
Line 318 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 514 sub BuildStatistics {
|
Line 516 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, |
Line 541 sub BuildStatistics {
|
Line 543 sub BuildStatistics {
|
} |
} |
|
|
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 561 sub BuildStatistics {
|
Line 563 sub BuildStatistics {
|
$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 580 sub BuildStatistics {
|
Line 582 sub BuildStatistics {
|
$courseDescription =~ s/\ /"_"/eg; |
$courseDescription =~ s/\ /"_"/eg; |
&Apache::lonproblemstatistics::BuildGraphicChart($GoToPage, $cacheDB, |
&Apache::lonproblemstatistics::BuildGraphicChart($GoToPage, $cacheDB, |
$courseDescription, |
$courseDescription, |
$r); |
$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); |