version 1.48, 2002/08/28 22:42:15
|
version 1.49, 2002/08/30 15:35:08
|
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::lonpercentage; |
use HTML::TokeParser; |
use HTML::TokeParser; |
use GDBM_File; |
use GDBM_File; |
|
|
Line 84 sub ProcessFormData{
|
Line 85 sub ProcessFormData{
|
&CheckFormElement($cache, 'download', 'download', 'false'); |
&CheckFormElement($cache, 'download', 'download', 'false'); |
&CheckFormElement($cache, 'StatisticsMaps', |
&CheckFormElement($cache, 'StatisticsMaps', |
'StatisticsMaps', 'All Maps'); |
'StatisticsMaps', 'All Maps'); |
|
&CheckFormElement($cache, 'StatisticsProblemSelect', |
|
'StatisticsProblemSelect', 'All Problems'); |
|
&CheckFormElement($cache, 'StatisticsPartSelect', |
|
'StatisticsPartSelect', 'All Parts'); |
if(defined($ENV{'form.Section'})) { |
if(defined($ENV{'form.Section'})) { |
my @sectionsSelected = (ref($ENV{'form.Section'}) ? |
my @sectionsSelected = (ref($ENV{'form.Section'}) ? |
@{$ENV{'form.Section'}} : |
@{$ENV{'form.Section'}} : |
Line 122 sub ProcessFormData{
|
Line 127 sub ProcessFormData{
|
'ProblemStatisticsAscend', 'Ascending'); |
'ProblemStatisticsAscend', 'Ascending'); |
&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', |
&CheckFormElement($cache, 'SortProblems', 'SortProblems', |
'Sort Within Sequence'); |
'Sort Within Sequence'); |
|
|
Line 507 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', |
# 'activitylog' => 'Activity Log', |
'reportSelected' => 'Class list'); |
'reportSelected' => 'Class list'); |
|
|
Line 586 sub BuildStatistics {
|
Line 593 sub BuildStatistics {
|
} elsif($GoToPage eq 'Class list') { |
} elsif($GoToPage eq 'Class list') { |
&BuildClasslist($cacheDB, $students, \@studentInformation, |
&BuildClasslist($cacheDB, $students, \@studentInformation, |
\@headings, $r); |
\@headings, $r); |
|
} elsif($GoToPage eq 'Percentage Graphs') { |
|
&Apache::lonpercentage::BuildPercentageGraph($cacheDB, $students, |
|
$courseID, $c, $r); |
} |
} |
|
|
$r->print('</form>'."\n"); |
$r->print('</form>'."\n"); |