'."\n";
- my $displayString = '
| '."\n";
$Str .= &Apache::lonhtmlcommon::CreateHeadings($cache,
@@ -270,38 +396,39 @@ sub CreateTableHeadings {
return $Str;
}
+#######################################################
+#######################################################
+
=pod
-=item &FormatStudentData()
+=item &StudentReport()
-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.
+This is the workhorse subroutine - it handles formatting and display of a
+students performance data. It processes one row of the chart.
+
+Input:
=over 4
-Input: $name, $studentInformation, $ChartDB
+=item $cache The ubiquitous cache
+
+=item $name The name and domain of the current student in name:domain format
-$name: The name and domain of the current student in name:domain format
+=item $spacing A string containing spaces.
-$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 $showSequences Array ref containing the sequences to display
-$ChartDB: The name of the cached data database which will be tied to that
-database.
+=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,10 +524,14 @@ sub StudentReport {
return $Str;
}
+#######################################################
+#######################################################
+#######################################################
+#######################################################
sub StudentAverageTotal {
my ($cache, $students, $sequenceKeys)=@_;
- my $Str = "\nAverageTotal\n";
+ my $Str = "\nSummary Tables:\n";
my %Correct = ();
my $ProblemsSolved = 0;
my $TotalProblems = 0;
@@ -409,24 +540,81 @@ sub StudentAverageTotal {
foreach my $name (@$students) {
$StudentCount++;
foreach my $sequence (@$sequenceKeys) {
- $Correct{$cache->{$sequence.':title'}} +=
- $cache->{$name.':'.$sequence.':problemsCorrect'};
+ $Correct{$sequence} +=
+ $cache->{$name.':'.$sequence.':problemsCorrect'};
}
$ProblemsSolved += $cache->{$name.':problemsSolved'};
$TotalProblems += $cache->{$name.':totalProblems'};
}
- $ProblemsSolved /= $StudentCount;
- $TotalProblems /= $StudentCount;
- $Str .= "AvgSlvd:$ProblemsSolved AvgTotal: $TotalProblems\n";
-
- foreach (%Correct) {
- $Str .= "$_ : $Correct{$_}\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 | '.
+ $TotalProblems.' |
'."\n";
+ $Str .= '| Average Correct | '.
+ $ProblemsSolved.' |
'."\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 $pCount=scalar @problems;
+ my $pCount=MaxSeqPr($cache,@$students[0],$S);
+ my $crr;
+ if ($StudentCount) {
+ $crr=sprintf( "%.2f", $Correct{$S}/$StudentCount );
+ } else {
+ $crr="0.00";
+ }
+ $Str .= '| '.$title.
+ ' | '.$pCount.
+ ' | '.$crr.
+ ' |
'."\n";
}
+ $Str .= '
'."\n";
+
return $Str;
}
+#######################################################
+#######################################################
+
+#######################################################
+#######################################################
+sub MaxSeqPr {
+ my ($cache, $name, $sequence)=@_;
+ my $prCount=0;
+ foreach my $problemID (split(':', $cache->{$sequence.':problems'})) {
+ my $problem = $cache->{$problemID.':problem'};
+ foreach(split(/\:/,$cache->{$sequence.':'.$problemID.':parts'})) {
+ if($cache->{$name.':'.$problemID.':NoVersion'} eq 'true' ||
+ $cache->{$name.':'.$problemID.':'.$_.':code'} eq ' ' ||
+ $cache->{$name.':'.$problemID.':'.$_.':code'} eq '') {
+ $prCount++;
+ next;
+ }
+ $prCount++;
+ }
+ }
+ return $prCount;
+}
+#######################################################
+#######################################################
=pod
@@ -438,6 +626,8 @@ problems.
=cut
+#######################################################
+#######################################################
sub CreateLegend {
my $Str = "".
" 1 correct by student in 1 try\n".
@@ -453,6 +643,9 @@ sub CreateLegend {
return $Str;
}
+#######################################################
+#######################################################
+
=pod
=item &CreateColumnSelectionBox()
@@ -466,7 +659,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.
@@ -482,6 +674,8 @@ which has a size of four.
=cut
+#######################################################
+#######################################################
sub CreateColumnSelectionBox {
my ($doNotShow)=@_;
@@ -501,6 +695,9 @@ sub CreateColumnSelectionBox {
return $notThere;
}
+#######################################################
+#######################################################
+
=pod
=item &CreateColumnSelectors()
@@ -527,6 +724,8 @@ for consistency of location over the col
=cut
+#######################################################
+#######################################################
sub CreateColumnSelectors {
my ($infoHeadings, $sequenceHeadings, $sequenceKeys)=@_;
@@ -548,10 +747,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)=@_;
@@ -589,6 +799,8 @@ sub FindSelectedStudent {
return 'No Student Selected';
}
+#######################################################
+#######################################################
=pod
@@ -605,12 +817,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)=@_;
@@ -655,8 +867,18 @@ sub ShouldShowColumns {
return (\@infoHeadings, \@infoKeys, \@sequenceHeadings,
\@sequenceKeys, \%doNotShow);
}
+1;
-#---- END Student Assessment Worker Functions --------------------------------
+#######################################################
+#######################################################
+
+=pod
+
+=back
+
+=cut
+
+#######################################################
+#######################################################
-1;
__END__