[BACK]Return to lonstudentassessment.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface / statistics

Diff for /loncom/interface/statistics/lonstudentassessment.pm between versions 1.27 and 1.28

version 1.27, 2003/01/13 01:34:11 version 1.28, 2003/02/21 18:41:56
Line 25 Line 25
 # http://www.lon-capa.org/  # http://www.lon-capa.org/
 #  #
 # (Navigate problems for statistical reports  # (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  =pod
 # 5/12,5/14,5/15,5/19,5/26,7/16,12/24  Behrouz Minaei  
 # YEAR=2003    =head1 NAME
 # 1/11  Behrouz Minaei  
 ###  lonstudentassessment
   
   =head1 SYNOPSIS
   
   Presents assessment data about a student or a group of students.
   
   =head1 Subroutines
   
   =over 4 
   
   =cut
   
   #######################################################
   #######################################################
   
 package Apache::lonstudentassessment;  package Apache::lonstudentassessment;
   
 use strict;  use strict;
   use Apache::lonstatistics;
 use Apache::lonhtmlcommon;  use Apache::lonhtmlcommon;
 use Apache::loncoursedata;  use Apache::loncoursedata;
   use Apache::lonnet; # for logging porpoises
 use GDBM_File;  use GDBM_File;
   
   #######################################################
   #######################################################
   
   =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 {  sub BuildStudentAssessmentPage {
     my ($cacheDB,$students,$courseID,$formName,$headings,$spacing,      my ($cacheDB,$students,$courseID,$formName,$headings,$spacing,
         $studentInformation,$r,$c)=@_;          $studentInformation,$r,$c)=@_;
Line 185  sub BuildStudentAssessmentPage { Line 236  sub BuildStudentAssessmentPage {
     }      }
     return;      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 {  sub CreateInterface {
     my($cache,$selectedName,$students,$formName,$doNotShow)=@_;      my($cache,$selectedName,$students,$formName,$doNotShow)=@_;
   
Line 238  sub CreateInterface { Line 320  sub CreateInterface {
   
     return $Str;      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 {  sub CreateTableHeadings {
     my($cache,$spacing,$infoKeys,$infoHeadings,$sequenceKeys,      my($cache,$spacing,$infoKeys,$infoHeadings,$sequenceKeys,
        $sequenceHeadings)=@_;         $sequenceHeadings)=@_;
Line 278  sub CreateTableHeadings { Line 396  sub CreateTableHeadings {
     return $Str;      return $Str;
 }  }
   
   #######################################################
   #######################################################
   
 =pod  =pod
   
 =item &FormatStudentData()  =item &StudentReport()
   
 First, FormatStudentInformation is called and prefixes the course information.  This is the workhorse subroutine - it handles formatting and display of a
 This function produces a formatted string of the student\'s course information.  students performance data.  It processes one row of the chart.
 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  Input: 
 for that problem.  
   
 =over 4  =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   =item $showSequences Array ref containing the sequences to display
 remove data from the hash.  They represent   
 the name of the data to be removed.  
   
 $ChartDB: The name of the cached data database which will be tied to that   =back
 database.  
   
 Output: $Str  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.  concatenation of student information and student course information.
   
 =back  
   
 =cut  =cut
   
   #######################################################
   #######################################################
 sub StudentReport {  sub StudentReport {
     my ($cache,$name,$spacing,$showSequences)=@_;      my ($cache,$name,$spacing,$showSequences)=@_;
     my ($username,$domain)=split(':',$name);      my ($username,$domain)=split(':',$name);
Line 405  sub StudentReport { Line 524  sub StudentReport {
     return $Str;      return $Str;
 }  }
   
   #######################################################
   #######################################################
   
   #######################################################
   #######################################################
 sub StudentAverageTotal {  sub StudentAverageTotal {
     my ($cache, $students, $sequenceKeys)=@_;      my ($cache, $students, $sequenceKeys)=@_;
     my $Str = "\n<b>Summary Tables:</b>\n";      my $Str = "\n<b>Summary Tables:</b>\n";
Line 467  sub StudentAverageTotal { Line 590  sub StudentAverageTotal {
     return $Str;      return $Str;
 }  }
   
   #######################################################
   #######################################################
   
   #######################################################
   #######################################################
 sub MaxSeqPr {  sub MaxSeqPr {
     my ($cache, $name, $sequence)=@_;      my ($cache, $name, $sequence)=@_;
     my $prCount=0;      my $prCount=0;
Line 487  sub MaxSeqPr { Line 613  sub MaxSeqPr {
     return $prCount;      return $prCount;
 }  }
   
   #######################################################
   #######################################################
   
   
 =pod  =pod
   
Line 501  problems. Line 626  problems.
   
 =cut  =cut
   
   #######################################################
   #######################################################
 sub CreateLegend {  sub CreateLegend {
     my $Str = "<p><pre>".      my $Str = "<p><pre>".
               "   1  correct by student in 1 try\n".                "   1  correct by student in 1 try\n".
Line 516  sub CreateLegend { Line 643  sub CreateLegend {
     return $Str;      return $Str;
 }  }
   
   #######################################################
   #######################################################
   
 =pod  =pod
   
 =item &CreateColumnSelectionBox()  =item &CreateColumnSelectionBox()
Line 529  to the interface table. Line 659  to the interface table.
 =over 4  =over 4
 Input: $CacheData, $headings  Input: $CacheData, $headings
   
   
 $CacheData: A pointer to a hash tied to the cached data  $CacheData: A pointer to a hash tied to the cached data
   
 $headings:  An array of the names of the columns for the student information.  $headings:  An array of the names of the columns for the student information.
Line 545  which has a size of four. Line 674  which has a size of four.
   
 =cut  =cut
   
   #######################################################
   #######################################################
 sub CreateColumnSelectionBox {  sub CreateColumnSelectionBox {
     my ($doNotShow)=@_;      my ($doNotShow)=@_;
   
Line 564  sub CreateColumnSelectionBox { Line 695  sub CreateColumnSelectionBox {
     return $notThere;      return $notThere;
 }  }
   
   #######################################################
   #######################################################
   
 =pod  =pod
   
 =item &CreateColumnSelectors()  =item &CreateColumnSelectors()
Line 590  for consistency of location over the col Line 724  for consistency of location over the col
   
 =cut  =cut
   
   #######################################################
   #######################################################
 sub CreateColumnSelectors {  sub CreateColumnSelectors {
     my ($infoHeadings, $sequenceHeadings, $sequenceKeys)=@_;      my ($infoHeadings, $sequenceHeadings, $sequenceKeys)=@_;
   
Line 611  sub CreateColumnSelectors { Line 747  sub CreateColumnSelectors {
     return $present;      return $present;
 }  }
   
 #---- END Student Assessment Web Page ----------------------------------------  #######################################################
   #######################################################
   
   =pod
   
   =back
   
 #---- Student Assessment Worker Functions ------------------------------------  =head1 HELPER FUNCTIONS
   
   =over 4
   
   =cut 
   
   #######################################################
   #######################################################
 sub FindSelectedStudent {  sub FindSelectedStudent {
     my($cache, $selectedName, $students)=@_;      my($cache, $selectedName, $students)=@_;
   
Line 652  sub FindSelectedStudent { Line 799  sub FindSelectedStudent {
   
     return 'No Student Selected';      return 'No Student Selected';
 }  }
   #######################################################
   #######################################################
   
 =pod  =pod
   
Line 668  $cache: A pointer to the hash tied to th Line 817  $cache: A pointer to the hash tied to th
 $test: The form name of the column (heading.$headingIndex) or   $test: The form name of the column (heading.$headingIndex) or 
 (sequence.$sequenceIndex)  (sequence.$sequenceIndex)
   
 Output: 0 (false), 1 (true)  
   
 =back  =back
   
 =cut  =cut
   
   #######################################################
   #######################################################
 sub ShouldShowColumns {  sub ShouldShowColumns {
     my ($cache,$headings,$cacheKey)=@_;      my ($cache,$headings,$cacheKey)=@_;
   
Line 718  sub ShouldShowColumns { Line 867  sub ShouldShowColumns {
     return (\@infoHeadings, \@infoKeys, \@sequenceHeadings,      return (\@infoHeadings, \@infoKeys, \@sequenceHeadings,
             \@sequenceKeys, \%doNotShow);              \@sequenceKeys, \%doNotShow);
 }  }
   1;
   
 #---- END Student Assessment Worker Functions --------------------------------  #######################################################
   #######################################################
   
   =pod 
   
   =back
   
   =cut
   
   #######################################################
   #######################################################
   
 1;  
 __END__  __END__
Removed from v.1.27  
changed lines
  Added in v.1.28

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>