version 1.44, 2002/08/14 16:18:55
|
version 1.46, 2002/08/14 20:42:48
|
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 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); |