--- loncom/interface/statistics/lonstudentassessment.pm 2002/12/18 20:02:34 1.22 +++ 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.22 2002/12/18 20:02:34 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 # -### +####################################################### +####################################################### + +=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.'); @@ -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,26 +222,54 @@ sub BuildStudentAssessmentPage {
             untie(%cache);
         }
     }
-
-#    if(tie(%cache,'GDBM_File',$cacheDB,&GDBM_READER(),0640)) {
-#        $r->print(&StudentAverageTotal(\%cache, $students, $sequenceKeys));
-#        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() +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. -#---- Student Assessment Web Page -------------------------------------------- +=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)=@_; @@ -210,9 +296,7 @@ sub CreateInterface { $Str .= ''."\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() -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 +521,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 +537,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 .= ''."\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 @@ -438,6 +623,8 @@ problems. =cut +####################################################### +####################################################### sub CreateLegend { my $Str = "

".
               "   1  correct by student in 1 try\n".
@@ -453,6 +640,9 @@ sub CreateLegend {
     return $Str;
 }
 
+#######################################################
+#######################################################
+
 =pod
 
 =item &CreateColumnSelectionBox()
@@ -466,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.
@@ -482,6 +671,8 @@ which has a size of four.
 
 =cut
 
+#######################################################
+#######################################################
 sub CreateColumnSelectionBox {
     my ($doNotShow)=@_;
 
@@ -501,6 +692,9 @@ sub CreateColumnSelectionBox {
     return $notThere;
 }
 
+#######################################################
+#######################################################
+
 =pod
 
 =item &CreateColumnSelectors()
@@ -527,6 +721,8 @@ for consistency of location over the col
 
 =cut
 
+#######################################################
+#######################################################
 sub CreateColumnSelectors {
     my ($infoHeadings, $sequenceHeadings, $sequenceKeys)=@_;
 
@@ -548,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)=@_;
 
@@ -589,6 +796,8 @@ sub FindSelectedStudent {
 
     return 'No Student Selected';
 }
+#######################################################
+#######################################################
 
 =pod
 
@@ -605,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)=@_;
 
@@ -655,8 +864,18 @@ sub ShouldShowColumns {
     return (\@infoHeadings, \@infoKeys, \@sequenceHeadings,
             \@sequenceKeys, \%doNotShow);
 }
+1;
 
-#---- END Student Assessment Worker Functions --------------------------------
+#######################################################
+#######################################################
+
+=pod 
+
+=back
+
+=cut
+
+#######################################################
+#######################################################
 
-1;
 __END__