--- loncom/interface/statistics/lonstudentassessment.pm 2002/12/24 21:00:21 1.23 +++ loncom/interface/statistics/lonstudentassessment.pm 2003/02/21 18:41:56 1.28 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # (Publication Handler # -# $Id: lonstudentassessment.pm,v 1.23 2002/12/24 21:00:21 minaeibi Exp $ +# $Id: lonstudentassessment.pm,v 1.28 2003/02/21 18:41:56 matthew Exp $ # # Copyright Michigan State University Board of Trustees # @@ -25,28 +25,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,12/24 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 +151,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 +183,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 +223,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. +=item $formName The name of the HTML form to use, 'Statistics' -#---- Student Assessment Web Page -------------------------------------------- +=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)=@_; @@ -233,21 +320,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 +396,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 +524,11 @@ sub StudentReport { return $Str; } +####################################################### +####################################################### +####################################################### +####################################################### sub StudentAverageTotal { my ($cache, $students, $sequenceKeys)=@_; my $Str = "\nSummary Tables:\n"; @@ -415,10 +546,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 .= ''."\n"; $Str .= ''."\n"; $Str .= '
Students Count'. $StudentCount.'
Total Problems'. @@ -427,16 +564,21 @@ sub StudentAverageTotal { $ProblemsSolved.'
'."\n"; - $Str .= ''."\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 @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 .= '
TitleTotal ProblemsAverage Correct
'.$title. ''.$pCount. ''.$crr. @@ -448,8 +590,11 @@ sub StudentAverageTotal { return $Str; } +####################################################### +####################################################### - +####################################################### +####################################################### sub MaxSeqPr { my ($cache, $name, $sequence)=@_; my $prCount=0; @@ -468,9 +613,8 @@ sub MaxSeqPr { return $prCount; } - - - +####################################################### +####################################################### =pod @@ -482,6 +626,8 @@ problems. =cut +####################################################### +####################################################### sub CreateLegend { my $Str = "

".
               "   1  correct by student in 1 try\n".
@@ -497,6 +643,9 @@ sub CreateLegend {
     return $Str;
 }
 
+#######################################################
+#######################################################
+
 =pod
 
 =item &CreateColumnSelectionBox()
@@ -510,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.
@@ -526,6 +674,8 @@ which has a size of four.
 
 =cut
 
+#######################################################
+#######################################################
 sub CreateColumnSelectionBox {
     my ($doNotShow)=@_;
 
@@ -545,6 +695,9 @@ sub CreateColumnSelectionBox {
     return $notThere;
 }
 
+#######################################################
+#######################################################
+
 =pod
 
 =item &CreateColumnSelectors()
@@ -571,6 +724,8 @@ for consistency of location over the col
 
 =cut
 
+#######################################################
+#######################################################
 sub CreateColumnSelectors {
     my ($infoHeadings, $sequenceHeadings, $sequenceKeys)=@_;
 
@@ -592,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)=@_;
 
@@ -633,6 +799,8 @@ sub FindSelectedStudent {
 
     return 'No Student Selected';
 }
+#######################################################
+#######################################################
 
 =pod
 
@@ -649,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)=@_;
 
@@ -699,8 +867,18 @@ sub ShouldShowColumns {
     return (\@infoHeadings, \@infoKeys, \@sequenceHeadings,
             \@sequenceKeys, \%doNotShow);
 }
+1;
 
-#---- END Student Assessment Worker Functions --------------------------------
+#######################################################
+#######################################################
+
+=pod 
+
+=back
+
+=cut
+
+#######################################################
+#######################################################
 
-1;
 __END__