';
+ $Str .= 'No Students enrolled OR Please select a student';
$r->print($Str);
+ } else {
+ if(tie(%cache,'GDBM_File',$cacheDB,&GDBM_READER(),0640)) {
+ $r->print(&StudentAverageTotal(\%cache, $students, $sequenceKeys));
+ untie(%cache);
+ }
}
-
return;
}
+#######################################################
+#######################################################
+
+=pod
+
+=item &CreateInterface()
-#---- Student Assessment Web Page --------------------------------------------
+Called by &BuildStudentAssessmentPage to create the top part of the
+page which displays the chart.
+Inputs:
+
+=over 4
+
+=item $cache The ubiquitous cache
+
+=item $selectedName The name of the currently selected student, or
+'All Students' or 'No Student Selected'.
+
+=item $students Array ref containing the name(s) of the students selected
+for display.
+
+=item $formName The name of the HTML form to use, 'Statistics'
+
+=item $doNotShow Array ref containing the names of columns to not show
+
+=back
+
+Returns: A string containing the HTML for the headers and top table for
+the chart page.
+
+=cut
+
+#######################################################
+#######################################################
sub CreateInterface {
my($cache,$selectedName,$students,$formName,$doNotShow)=@_;
@@ -195,8 +280,8 @@ sub CreateInterface {
$Str .= 'value="Previous Student" />'."\n";
$Str .= ' '."\n";
$Str .= &Apache::lonhtmlcommon::StudentOptions($cache, $students,
- $selectedName,
- 'StudentAssessment',
+ $selectedName,
+ 'StudentAssessment',
$formName);
$Str .= "\n".' '."\n";
$Str .= '{'sectionList'});
my @selectedSections = split(':',$cache->{'sectionsSelected'});
- $Str .= &Apache::lonhtmlcommon::MultipleSectionSelect(\@sections,
- \@selectedSections,
- 'Statistics');
+ $Str .= &Apache::lonstatistics::SectionSelect('Section','multiple',5);
$Str .= '
'."\n";
$Str .= &Apache::lonhtmlcommon::CreateHeadings($cache,
@@ -260,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
+$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);
@@ -327,17 +461,21 @@ sub StudentReport {
}
$hasVersion = 'true';
$hasData = 'true';
- $Str .= '';
+ if (lc($ENV{'form.displaymode'}) ne 'display without links') {
+ $Str .= '';
+ }
my $code = $cache->{$name.':'.$problemID.':'.$_.':code'};
my $tries = $cache->{$name.':'.$problemID.':'.$_.':tries'};
if($code eq '*' && $tries < 10 && $tries ne '') {
$code = $tries;
}
$Str .= $code;
- $Str .= '';
+ if (lc($ENV{'form.displaymode'}) ne 'display without links') {
+ $Str .= '';
+ }
$characterCount++;
}
}
@@ -383,92 +521,97 @@ sub StudentReport {
return $Str;
}
+#######################################################
+#######################################################
+#######################################################
+#######################################################
sub StudentAverageTotal {
-
- return "";
-
- my ($cache,$name,$spacing,$showSequences)=@_;
- my $username = $name;
- my $Str = '';
- my $hasVersion = 'false';
- my $hasFinalData = 'false';
- foreach my $sequence (@$showSequences) {
- my $hasData = 'false';
- my $characterCount=0;
- foreach my $problemID (split(':', $cache->{$sequence.':problems'})) {
- my $problem = $cache->{$problemID.':problem'};
- # All grades (except for versionless parts) are displayed as links
- # to their submission record. Loop through all the parts for the
- # current problem in the correct order and prepare the output links
- foreach(split(/\:/,$cache->{$sequence.':'.$problemID.
- ':parts'})) {
- if($cache->{$name.':'.$problemID.':NoVersion'} eq 'true' ||
- $cache->{$name.':'.$problemID.':'.$_.':code'} eq ' ' ||
- $cache->{$name.':'.$problemID.':'.$_.':code'} eq '') {
- $Str .= ' ';
- $characterCount++;
- next;
- }
- $hasVersion = 'true';
- $hasData = 'true';
- $Str .= '';
- my $code = $cache->{$name.':'.$problemID.':'.$_.':code'};
- my $tries = $cache->{$name.':'.$problemID.':'.$_.':tries'};
- if($code eq '*' && $tries < 10 && $tries ne '') {
- $code = $tries;
- }
- $Str .= $code;
- $Str .= '';
- $characterCount++;
- }
- }
-
- # Output the number of correct answers for the current sequence.
- # This part takes up 6 character slots, but is formated right
- # justified.
- my $spacesNeeded=$cache->{$sequence.':columnWidth'}-$characterCount;
- $spacesNeeded -= 3;
- $Str .= (' 'x$spacesNeeded);
-
-# my $outputProblemsCorrect = sprintf("%3d", $cache->{$name.':'.$sequence.
-# ':problemsCorrect'});
-
- my $outputProblemsCorrect = sprintf("%2d/%2d", $cache->{$name.':'.$sequence.
- ':problemsCorrect'},
- $characterCount);
- if($hasData eq 'true') {
- $Str .= ''.$outputProblemsCorrect.'';
- $hasFinalData = 'true';
- } else {
- $Str .= ' ';
+ my ($cache, $students, $sequenceKeys)=@_;
+ my $Str = "\nSummary Tables:\n";
+ my %Correct = ();
+ my $ProblemsSolved = 0;
+ my $TotalProblems = 0;
+ my $StudentCount = 0;
+
+ foreach my $name (@$students) {
+ $StudentCount++;
+ foreach my $sequence (@$sequenceKeys) {
+ $Correct{$sequence} +=
+ $cache->{$name.':'.$sequence.':problemsCorrect'};
}
- $Str .= $spacing;
+ $ProblemsSolved += $cache->{$name.':problemsSolved'};
+ $TotalProblems += $cache->{$name.':totalProblems'};
}
-
- # Output the total correct problems over the total number of problems.
- # I don't like this type of formatting, but it is a solution. Need
- # a way to dynamically determine the space requirements.
- my $outputProblemsSolved = sprintf("%4d", $cache->{$name.':problemsSolved'});
- my $outputTotalProblems = sprintf("%4d", $cache->{$name.':totalProblems'});
- if($hasFinalData eq 'true') {
- $Str .= ''.$outputProblemsSolved.
- ' / '.$outputTotalProblems.'';
+ if ($StudentCount) {
+ $ProblemsSolved = sprintf( "%.2f",
+ $ProblemsSolved/$StudentCount);
+ $TotalProblems /= $StudentCount;
} else {
- $Str .= ' ';
+ $ProblemsSolved = 0;
+ $TotalProblems = 0;
}
- if($hasVersion eq 'false') {
- $Str = 'No course data.';
+ $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 .= '