--- loncom/interface/statistics/lonstudentassessment.pm 2002/12/11 18:41:00 1.20 +++ loncom/interface/statistics/lonstudentassessment.pm 2003/02/25 20:47:47 1.29 @@ -1,7 +1,6 @@ # The LearningOnline Network with CAPA -# (Publication Handler # -# $Id: lonstudentassessment.pm,v 1.20 2002/12/11 18:41:00 minaeibi Exp $ +# $Id: lonstudentassessment.pm,v 1.29 2003/02/25 20:47:47 matthew Exp $ # # Copyright Michigan State University Board of Trustees # @@ -25,28 +24,78 @@ # http://www.lon-capa.org/ # # (Navigate problems for statistical reports -# YEAR=2001 -# 5/5,7/9,7/25/1,8/11,9/13,9/26,10/5,10/9,10/22,10/26 Behrouz Minaei -# 11/1,11/4,11/16,12/14,12/16,12/18,12/20,12/31 Behrouz Minaei -# YEAR=2002 -# 1/22,2/1,2/6,2/25,3/2,3/6,3/17,3/21,3/22,3/26,4/7,5/6 Behrouz Minaei -# 5/12,5/14,5/15,5/19,5/26,7/16 Behrouz Minaei # -### +####################################################### +####################################################### -package Apache::lonstudentassessment; +=pod + +=head1 NAME + +lonstudentassessment + +=head1 SYNOPSIS + +Presents assessment data about a student or a group of students. + +=head1 Subroutines + +=over 4 + +=cut + +####################################################### +####################################################### + +package Apache::lonstudentassessment; use strict; +use Apache::lonstatistics; use Apache::lonhtmlcommon; use Apache::loncoursedata; +use Apache::lonnet; # for logging porpoises use GDBM_File; -#my $jr; +####################################################### +####################################################### + +=pod + +=item &BuildStudentAssessmentPage() + +Inputs: + +=over 4 + +=item $cacheDB The name of the cache file used to store student data + +=item $students Array ref containing the name(s) of the students +selected for display + +=item $courseID The ID of the course + +=item $formName The name of the html form - 'Statistics' + +=item $headings Array ref of headings to show +=item $spacing A string of spaces + +=item $studentInformation Array ref of possible headings for student info +('fullname','section',...) + +=item $r Apache Request + +=item $c Apache Connection + +=back + +=cut + +####################################################### +####################################################### sub BuildStudentAssessmentPage { my ($cacheDB,$students,$courseID,$formName,$headings,$spacing, $studentInformation,$r,$c)=@_; -# $jr = $r; my %cache; unless(tie(%cache,'GDBM_File',$cacheDB,&GDBM_READER(),0640)) { $r->print('Unable to tie database.'); @@ -77,10 +126,10 @@ sub BuildStudentAssessmentPage { } } my ($infoHeadings, $infoKeys, $sequenceHeadings, $sequenceKeys, - $doNotShow) = + $doNotShow) = &ShouldShowColumns(\%cache, $headings, $studentInformation); - my $selectedName = &FindSelectedStudent(\%cache, + my $selectedName = &FindSelectedStudent(\%cache, $cache{'StudentAssessmentStudent'}, $students); $r->print(&CreateInterface(\%cache, $selectedName, $students, $formName, @@ -101,6 +150,7 @@ sub BuildStudentAssessmentPage { if($c->aborted()) { return $Str; } my $selected=0; + my $Count = 0; $r->print('
'."\n");
     foreach (@$students) {
         if($c->aborted()) { return $Str; }
@@ -132,8 +182,16 @@ sub BuildStudentAssessmentPage {
                     push(@before, $_);
                 }
             }
-            my $displayString = 'DISPLAYDATA'.$spacing;
-            $r->print(&Apache::lonhtmlcommon::FormatStudentInformation(
+            $Count++;
+	    my $out = '';
+	    $out .= sprintf("%3d) ", $Count);
+            if($Count % 2) {
+                $out .= '';
+            } else {
+                $out .= '';
+            }
+	    my $displayString = $out.'DISPLAYDATA'.$spacing;
+	    $r->print(&Apache::lonhtmlcommon::FormatStudentInformation(
                                                          \%cache, $_,
                                                          \@before,
                                                          $displayString,
@@ -164,27 +222,54 @@ sub BuildStudentAssessmentPage {
             untie(%cache);
         }
     }
-
-
-#    $r->print("AverageTtal");
-#    $r->print(&StudentAverageTotal(\%cache, $spacing, $sequenceKeys));
-#    $r->print("\n");
-#    $r->rflush();
-    untie(%cache);
-
-
-    $r->print('
'."\n"); + $r->print(''."\n"); if($selected == 0) { $Str .= '

WARNING: '; - $Str .= 'Please select a student

'; + $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 .= ''; $Str .= &CreateColumnSelectionBox($doNotShow); $Str .= ''."\n"; @@ -225,7 +308,7 @@ sub CreateInterface { lc($ENV{'form.displaymode'}) eq 'display with links') { $Str .= 'value="Display without links" />'; # Set the current value, in case it is undefined - $ENV{'form.displaymode'} = 'Display with links'; + $ENV{'form.displaymode'} = 'Display with links'; } else { $Str .= 'value="Display with links" />'; } @@ -234,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, @@ -271,38 +393,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 +$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); @@ -342,7 +465,7 @@ sub StudentReport { $Str .= ''; + $Str .= '&command=submission">'; } my $code = $cache->{$name.':'.$problemID.':'.$_.':code'}; my $tries = $cache->{$name.':'.$problemID.':'.$_.':tries'}; @@ -398,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++; - } + 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'}; } - - # 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 .= ' '; - } - $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 .= ''."\n"; + $Str .= ''."\n"; + $Str .= ''."\n"; + $Str .= '
Students Count'. + $StudentCount.'
Total Problems'. + $TotalProblems.'
Average Correct'. + $ProblemsSolved.'
'."\n"; + + $Str .= ''."\n"; + $Str .= ''. + ''."\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 .= ''."\n"; } + $Str .= '
TitleTotal ProblemsAverage Correct
'.$title. + ''.$pCount. + ''.$crr. + '
'."\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 @@ -495,6 +623,8 @@ problems. =cut +####################################################### +####################################################### sub CreateLegend { my $Str = "

".
               "   1  correct by student in 1 try\n".
@@ -510,6 +640,9 @@ sub CreateLegend {
     return $Str;
 }
 
+#######################################################
+#######################################################
+
 =pod
 
 =item &CreateColumnSelectionBox()
@@ -523,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.
@@ -539,6 +671,8 @@ which has a size of four.
 
 =cut
 
+#######################################################
+#######################################################
 sub CreateColumnSelectionBox {
     my ($doNotShow)=@_;
 
@@ -558,6 +692,9 @@ sub CreateColumnSelectionBox {
     return $notThere;
 }
 
+#######################################################
+#######################################################
+
 =pod
 
 =item &CreateColumnSelectors()
@@ -584,6 +721,8 @@ for consistency of location over the col
 
 =cut
 
+#######################################################
+#######################################################
 sub CreateColumnSelectors {
     my ($infoHeadings, $sequenceHeadings, $sequenceKeys)=@_;
 
@@ -605,10 +744,21 @@ sub CreateColumnSelectors {
     return $present;
 }
 
-#---- END Student Assessment Web Page ----------------------------------------
+#######################################################
+#######################################################
 
-#---- Student Assessment Worker Functions ------------------------------------
+=pod
+
+=back
+
+=head1 HELPER FUNCTIONS
+
+=over 4
 
+=cut 
+
+#######################################################
+#######################################################
 sub FindSelectedStudent {
     my($cache, $selectedName, $students)=@_;
 
@@ -646,6 +796,8 @@ sub FindSelectedStudent {
 
     return 'No Student Selected';
 }
+#######################################################
+#######################################################
 
 =pod
 
@@ -662,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)=@_;
 
@@ -696,7 +848,7 @@ sub ShouldShowColumns {
 
     foreach my $sequence (split(/\:/,$cache->{'orderedSequences'})) {
         $check = 'SequenceColumn'.$sequence;
-        if($cache->{'SequencesFound'} eq 'All Sequences' || 
+        if($cache->{'SequencesFound'} eq 'All Sequences' ||
            $cache->{'SequencesFound'} =~ /$check/) {
             push(@sequenceHeadings, $cache->{$sequence.':title'});
             push(@sequenceKeys, $sequence);
@@ -709,11 +861,21 @@ sub ShouldShowColumns {
 
     $doNotShow{'count'} = $count;
 
-    return (\@infoHeadings, \@infoKeys, \@sequenceHeadings, 
+    return (\@infoHeadings, \@infoKeys, \@sequenceHeadings,
             \@sequenceKeys, \%doNotShow);
 }
+1;
 
-#---- END Student Assessment Worker Functions --------------------------------
+#######################################################
+#######################################################
+
+=pod 
+
+=back
+
+=cut
+
+#######################################################
+#######################################################
 
-1;
 __END__