| '."\n";
my @sections = split(':',$cache->{'sectionList'});
my @selectedSections = split(':',$cache->{'sectionsSelected'});
- $Str .= &Apache::lonhtmlcommon::MultipleSectionSelect(\@sections,
- \@selectedSections,
- 'Statistics');
+ $Str .= &Apache::lonstatistics::SectionSelect('Section','multiple',5);
$Str .= ' | ';
$Str .= &CreateColumnSelectionBox($doNotShow);
$Str .= ' | '."\n";
@@ -233,21 +317,60 @@ sub CreateInterface {
return $Str;
}
+#######################################################
+#######################################################
+
+=pod
+
+=item &CreateTableHeadings()
+
+Create HTML for the columns of student data to show.
+Called by &BuildStudentAssessmentPage(). Calls
+&Apache::lonhtmlcommon::CreateHeadings().
+
+Inputs:
+
+=over 4
+
+=item $cache The ubiquitous cache
+
+=item $spacing A string of spaces
+
+=item $infoKeys Array ref to names of keys to display from the cache
+which describe students
+
+=item $infoHeadings Array ref to headings of columns for student info
+
+=item $sequenceKeys Array ref of names of keys to use to retrieve sequence
+data from the cache
+
+=item $sequenceHeadings Array ref of names of sequences used for output.
+
+=back
+
+Returns: A string containing the HTML of the table headings.
+
+=cut
+#######################################################
+#######################################################
sub CreateTableHeadings {
my($cache,$spacing,$infoKeys,$infoHeadings,$sequenceKeys,
$sequenceHeadings)=@_;
+# my $Str = ' ';
my $Str = '';
$Str .= ''."\n";
-
$Str .= ''."\n";
+ $Str .= ' | '."\n";
$Str .= &CreateColumnSelectors($infoHeadings, $sequenceHeadings,
$sequenceKeys);
$Str .= ' | '."\n";
$Str .= ''."\n";
- my $displayString = '
| '."\n";
$Str .= &Apache::lonhtmlcommon::CreateHeadings($cache,
@@ -270,38 +393,39 @@ sub CreateTableHeadings {
return $Str;
}
+#######################################################
+#######################################################
+
=pod
-=item &FormatStudentData()
+=item &StudentReport()
+
+This is the workhorse subroutine - it handles formatting and display of a
+students performance data. It processes one row of the chart.
-First, FormatStudentInformation is called and prefixes the course information.
-This function produces a formatted string of the student\'s course information.
-Each column of data represents all the problems for a given sequence. For
-valid grade data, a link is created for that problem to a submission record
-for that problem.
+Input:
=over 4
-Input: $name, $studentInformation, $ChartDB
+=item $cache The ubiquitous cache
-$name: The name and domain of the current student in name:domain format
+=item $name The name and domain of the current student in name:domain format
-$studentInformation: A pointer to an array holding the names used to
-remove data from the hash. They represent
-the name of the data to be removed.
+=item $spacing A string containing spaces.
-$ChartDB: The name of the cached data database which will be tied to that
-database.
+=item $showSequences Array ref containing the sequences to display
+
+=back
Output: $Str
$Str: Formatted string that is an entire row of the chart. It is a
concatenation of student information and student course information.
-=back
-
=cut
+#######################################################
+#######################################################
sub StudentReport {
my ($cache,$name,$spacing,$showSequences)=@_;
my ($username,$domain)=split(':',$name);
@@ -397,7 +521,11 @@ sub StudentReport {
return $Str;
}
+#######################################################
+#######################################################
+#######################################################
+#######################################################
sub StudentAverageTotal {
my ($cache, $students, $sequenceKeys)=@_;
my $Str = "\nSummary Tables:\n";
@@ -415,10 +543,16 @@ sub StudentAverageTotal {
$ProblemsSolved += $cache->{$name.':problemsSolved'};
$TotalProblems += $cache->{$name.':totalProblems'};
}
- $ProblemsSolved /= $StudentCount;
- $TotalProblems /= $StudentCount;
-
- $Str .= ''."\n";
+ if ($StudentCount) {
+ $ProblemsSolved = sprintf( "%.2f",
+ $ProblemsSolved/$StudentCount);
+ $TotalProblems /= $StudentCount;
+ } else {
+ $ProblemsSolved = 0;
+ $TotalProblems = 0;
+ }
+
+ $Str .= ''."\n";
$Str .= '| Students Count | '.
$StudentCount.' | '."\n";
$Str .= '| Total Problems | '.
@@ -427,16 +561,21 @@ sub StudentAverageTotal {
$ProblemsSolved.' | '."\n";
$Str .= ' '."\n";
- $Str .= ''."\n";
+ $Str .= ''."\n";
$Str .= '| Title | Total Problems | '.
'Average Correct |
|---|
'."\n";
foreach my $S(@$sequenceKeys) {
my $title=$cache->{$S.':title'};
#$Str .= $cache->{$S.':problems'};
- #my @problems=split(':', $cache->{$S.':problems'});
+ #my @problems=split(':', $cache->{$S.':problems'});
#my $pCount=scalar @problems;
my $pCount=MaxSeqPr($cache,@$students[0],$S);
- my $crr=sprintf( "%.2f", $Correct{$S}/$StudentCount );
+ my $crr;
+ if ($StudentCount) {
+ $crr=sprintf( "%.2f", $Correct{$S}/$StudentCount );
+ } else {
+ $crr="0.00";
+ }
$Str .= '| '.$title.
' | '.$pCount.
' | '.$crr.
@@ -448,8 +587,11 @@ sub StudentAverageTotal {
return $Str;
}
+#######################################################
+#######################################################
-
+#######################################################
+#######################################################
sub MaxSeqPr {
my ($cache, $name, $sequence)=@_;
my $prCount=0;
@@ -468,9 +610,8 @@ sub MaxSeqPr {
return $prCount;
}
-
-
-
+#######################################################
+#######################################################
=pod
@@ -482,6 +623,8 @@ problems.
=cut
+#######################################################
+#######################################################
sub CreateLegend {
my $Str = "".
" 1 correct by student in 1 try\n".
@@ -497,6 +640,9 @@ sub CreateLegend {
return $Str;
}
+#######################################################
+#######################################################
+
=pod
=item &CreateColumnSelectionBox()
@@ -510,7 +656,6 @@ to the interface table.
=over 4
Input: $CacheData, $headings
-
$CacheData: A pointer to a hash tied to the cached data
$headings: An array of the names of the columns for the student information.
@@ -526,6 +671,8 @@ which has a size of four.
=cut
+#######################################################
+#######################################################
sub CreateColumnSelectionBox {
my ($doNotShow)=@_;
@@ -545,6 +692,9 @@ sub CreateColumnSelectionBox {
return $notThere;
}
+#######################################################
+#######################################################
+
=pod
=item &CreateColumnSelectors()
@@ -571,6 +721,8 @@ for consistency of location over the col
=cut
+#######################################################
+#######################################################
sub CreateColumnSelectors {
my ($infoHeadings, $sequenceHeadings, $sequenceKeys)=@_;
@@ -592,10 +744,21 @@ sub CreateColumnSelectors {
return $present;
}
-#---- END Student Assessment Web Page ----------------------------------------
+#######################################################
+#######################################################
+
+=pod
+
+=back
+
+=head1 HELPER FUNCTIONS
+
+=over 4
-#---- Student Assessment Worker Functions ------------------------------------
+=cut
+#######################################################
+#######################################################
sub FindSelectedStudent {
my($cache, $selectedName, $students)=@_;
@@ -633,6 +796,8 @@ sub FindSelectedStudent {
return 'No Student Selected';
}
+#######################################################
+#######################################################
=pod
@@ -649,12 +814,12 @@ $cache: A pointer to the hash tied to th
$test: The form name of the column (heading.$headingIndex) or
(sequence.$sequenceIndex)
-Output: 0 (false), 1 (true)
-
=back
=cut
+#######################################################
+#######################################################
sub ShouldShowColumns {
my ($cache,$headings,$cacheKey)=@_;
@@ -699,8 +864,18 @@ sub ShouldShowColumns {
return (\@infoHeadings, \@infoKeys, \@sequenceHeadings,
\@sequenceKeys, \%doNotShow);
}
+1;
-#---- END Student Assessment Worker Functions --------------------------------
+#######################################################
+#######################################################
+
+=pod
+
+=back
+
+=cut
+
+#######################################################
+#######################################################
-1;
__END__
| |