[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.9 and 1.30

version 1.9, 2002/08/31 18:31:15 version 1.30, 2003/02/28 21:19:00
Line 1 Line 1
 # The LearningOnline Network with CAPA  # The LearningOnline Network with CAPA
 # (Publication Handler  
 #  #
 # $Id$  # $Id$
 #  #
 # Copyright Michigan State University Board of Trustees  # Copyright Michigan State University Board of Trustees
 #  #
 # This file is part of the LearningOnline Network with CAPA (LON-CAPA).  # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
 #  
 # LON-CAPA is free software; you can redistribute it and/or modify  # LON-CAPA is free software; you can redistribute it and/or modify
 # it under the terms of the GNU General Public License as published by  # it under the terms of the GNU General Public License as published by
 # the Free Software Foundation; either version 2 of the License, or  # the Free Software Foundation; either version 2 of the License, or
Line 26 Line 24
 # 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  
 # 5/12,5/14,5/15,5/19,5/26,7/16  Behrouz Minaei  
 #  #
 ###  #######################################################
   #######################################################
 package Apache::lonstudentassessment;   
   
 use strict;  =pod
 use Apache::lonhtmlcommon;  
 use Apache::loncoursedata;  
 use GDBM_File;  
   
 #my $jr;  
   
 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('<html><body>Unable to tie database.</body></html>');  
         return;  
     }  
   
     # Remove students who don't have the proper section.  
     my @sectionsSelected = split(':',$cache{'sectionsSelected'});  
     for(my $studentIndex=((scalar @$students)-1); $studentIndex>=0;  
         $studentIndex--) {  
         my $value = $cache{$students->[$studentIndex].':section'};  
         my $found = 0;  
         foreach (@sectionsSelected) {  
             if($_ eq 'none') {  
                 if($value eq '' || !defined($value) || $value eq ' ') {  
                     $found = 1;  
                     last;  
                 }  
             } else {  
                 if($value eq $_) {  
                     $found = 1;  
                     last;  
                 }  
             }  
         }  
         if($found == 0) {  
             splice(@$students, $studentIndex, 1);  
         }  
     }  
     my ($infoHeadings, $infoKeys, $sequenceHeadings, $sequenceKeys,  
         $doNotShow) =   
         &ShouldShowColumns(\%cache, $headings, $studentInformation);  
   
     my $selectedName = &FindSelectedStudent(\%cache,   
                                             $cache{'StudentAssessmentStudent'},  
                                             $students);  
     $r->print(&CreateInterface(\%cache, $selectedName, $students, $formName,  
                                $doNotShow));  
     $r->rflush();  
   
     my $Str = '';  =head1 NAME
     if($selectedName eq 'No Student Selected') {  
  $Str .= '<h3><font color=blue>WARNING: ';  
         $Str .= 'Please select a student</font></h3>';  
         $r->print($Str);  
         return;  
     }  
   
     $r->print(&CreateTableHeadings(\%cache, $spacing, $infoKeys, $infoHeadings,  lonstudentassessment
                                    $sequenceKeys, $sequenceHeadings));  
     untie(%cache);  
     if($c->aborted()) {  return $Str; }  
   
     my $selected=0;  =head1 SYNOPSIS
     $r->print('<pre>'."\n");  
     foreach (@$students) {  
         if($c->aborted()) { return $Str; }  
         next if ($_ ne $selectedName &&   
                  $selectedName ne 'All Students');  
         $selected = 1;  
   
         my @who = ($_);  
         next if(&Apache::loncoursedata::DownloadStudentCourseData(\@who, 'true',   
                                                              $cacheDB, 'true',   
                                                              'false', $courseID,  
                                                              $r, $c) ne 'OK');  
         next if($c->aborted());  
   
         if(tie(%cache,'GDBM_File',$cacheDB,&GDBM_READER(),0640)) {  
             my @before=();  
             my @after=();  
             my @updateColumn=();  
             my $foundUpdate = 0;  
             foreach(@$infoKeys) {  
                 if(/updateTime/) {  
                     $foundUpdate=1;  
                     push(@updateColumn, $_);  
                     next;  
                 }  
                 if($foundUpdate) {  
                     push(@after, $_);  
                 } else {  
                     push(@before, $_);  
                 }  
             }  
             my $displayString = 'DISPLAYDATA'.$spacing;  
             $r->print(&Apache::lonhtmlcommon::FormatStudentInformation(  
                                                          \%cache, $_,  
                                                          \@before,  
                                                          $displayString,  
                                                          'preformatted'));  
   
             if($foundUpdate) {  
                 $displayString = '';  
                 $displayString .= '<a href="/adm/statistics?reportSelected=';  
                 $displayString .= &Apache::lonnet::escape('Student Assessment');  
                 $displayString .= '&download='.$_.'">';  
                 $displayString .= 'DISPLAYDATA</a>'.$spacing;  
                 $r->print(&Apache::lonhtmlcommon::FormatStudentInformation(  
                                                                    \%cache, $_,  
                                                                    \@updateColumn,  
                                                                    $displayString,  
                                                                    'preformatted'));  
             }  
   
             $displayString = 'DISPLAYDATA'.$spacing;  Presents assessment data about a student or a group of students.
             $r->print(&Apache::lonhtmlcommon::FormatStudentInformation(  
                                                          \%cache, $_,  
                                                          \@after,  
                                                          $displayString,  
                                                          'preformatted'));  
             $r->print(&StudentReport(\%cache, $_, $spacing, $sequenceKeys));  
             $r->print("\n");  
             $r->rflush();  
             untie(%cache);  
         }  
     }  
     $r->print('</pre>'."\n");  
     if($selected == 0) {  
  $Str .= '<h3><font color=blue>WARNING: ';  
         $Str .= 'Please select a student</font></h3>';  
         $r->print($Str);  
     }  
   
     return;  =head1 Subroutines
 }  
   
 #---- Student Assessment Web Page --------------------------------------------  =over 4 
   
 sub CreateInterface {  =cut
     my($cache,$selectedName,$students,$formName,$doNotShow)=@_;  
   
     my $Str = '';  #######################################################
     $Str .= &CreateLegend();  #######################################################
     $Str .= '<table><tr><td>'."\n";  
     $Str .= '<input type="submit" name="PreviousStudent" ';  
     $Str .= 'value="Previous Student" />'."\n";  
     $Str .= '&nbsp&nbsp&nbsp'."\n";  
     $Str .= &Apache::lonhtmlcommon::StudentOptions($cache, $students,   
                                                    $selectedName,   
                                                    'StudentAssessment',   
                                                    $formName);  
     $Str .= "\n".'&nbsp&nbsp&nbsp'."\n";  
     $Str .= '<input type="submit" name="NextStudent" ';  
     $Str .= 'value="Next Student" />'."\n";  
     $Str .= '</td></tr></table>'."\n";  
     $Str .= '<table cellspacing="5"><tr>'."\n";  
     $Str .= '<td align="center"><b>Select Sections</b>'."\n";  
     $Str .= '</td>'."\n";  
     $Str .= '<td align="center"><b>Select column to view:</b></td>'."\n";  
     $Str .= '<td></td></tr>'."\n";  
   
     $Str .= '<tr><td align="center">'."\n";  package Apache::lonstudentassessment;
     my @sections = split(':',$cache->{'sectionList'});  
     my @selectedSections = split(':',$cache->{'sectionsSelected'});  
     $Str .= &Apache::lonhtmlcommon::MultipleSectionSelect(\@sections,  
                                                           \@selectedSections,  
                                                           'Statistics');  
     $Str .= '</td><td align="center">';  
     $Str .= &CreateColumnSelectionBox($doNotShow);  
     $Str .= '</td><td>'."\n";  
     $Str .= '<input type="submit" name="DefaultColumns" ';  
     $Str .= 'value="Default Column Display" />'."\n";  
     $Str .= '</td></tr></table>'."\n";  
   
     return $Str;  use strict;
 }  use Apache::lonstatistics;
   use Apache::lonhtmlcommon;
   use Apache::loncoursedata;
   use Apache::lonnet; # for logging porpoises
   use GDBM_File;
   
 sub CreateTableHeadings {  my $Statistics;
     my($cache,$spacing,$infoKeys,$infoHeadings,$sequenceKeys,  
        $sequenceHeadings)=@_;  
   
     my $Str = '';  #######################################################
     $Str .= '<table border="0" cellpadding="0" cellspacing="0">'."\n";  #######################################################
   
     $Str .= '<tr>'."\n";  =pod
     $Str .= &CreateColumnSelectors($infoHeadings, $sequenceHeadings,  
                                    $sequenceKeys);  
     $Str .= '<td></td></tr>'."\n";  
   
     $Str .= '<tr>'."\n";  
     my $displayString = '<td align="left"><pre><a href="/adm/statistics?';  
     $displayString .= 'sort=LINKDATA">DISPLAYDATA</a>FORMATTING';  
     $displayString .= $spacing.'</pre></td>'."\n";  
     $Str .= &Apache::lonhtmlcommon::CreateHeadings($cache,   
                                                    $infoKeys,  
                                                    $infoHeadings,  
                                                    $displayString,  
                                                    'preformatted');  
   
     $displayString  = '<td align="left"><pre>DISPLAYDATAFORMATTING'.$spacing;  
     $displayString .= '</pre></td>'."\n";  
     $Str .= &Apache::lonhtmlcommon::CreateHeadings($cache,  
                                                    $sequenceKeys,  
                                                    $sequenceHeadings,  
                                                    $displayString,  
                                                    'preformatted');  
   
     $Str .= '<td><pre>Total Solved/Total Problems</pre></td>';  =item &BuildStudentAssessmentPage()
     $Str .= '</tr></table>'."\n";  
   
     return $Str;  Inputs: 
 }  
   
 =pod  =over 4
   
 =item &FormatStudentData()  =item $cacheDB The name of the cache file used to store student data
   
 First, FormatStudentInformation is called and prefixes the course information.  =item $students Array ref containing the name(s) of the students 
 This function produces a formatted string of the student's course information.  selected for display
 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.  
   
 =over 4  =item $courseID The ID of the course
   
 Input: $name, $studentInformation, $ChartDB  =item $formName The name of the html form - 'Statistics'
   
 $name: The name and domain of the current student in name:domain format  =item $headings Array ref of headings to show
   
 $studentInformation: A pointer to an array holding the names used to   =item $spacing A string of spaces
 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   =item $studentInformation Array ref of possible headings for student info
 database.  ('fullname','section',...)
   
 Output: $Str  =item $r Apache Request
   
 $Str: Formatted string that is an entire row of the chart.  It is a   =item $c Apache Connection 
 concatenation of student information and student course information.  
   
 =back  =back
   
 =cut  =cut
   
 sub StudentReport {  #######################################################
     my ($cache,$name,$spacing,$showSequences)=@_;  #######################################################
     my ($username,$domain)=split(':',$name);  sub BuildStudentAssessmentPage {
       my ($r,$c)=@_;
       undef($Statistics);
       
       #
       $r->print(&CreateInterface());
       $r->rflush();
       #
       $r->print(&CreateTableHeadings());
       if($c->aborted()) {  return ; }
       
       my $Count = 0;
       $r->print('<pre>'."\n");
       foreach my $student (@Apache::lonstatistics::Students) {
           if($c->aborted()) { return ; }
           $r->print(&ChartOutputStudent($student));
           # output it
   
           $Count++;
           if($Count % 5 == 0) {
               $r->print("</pre>\n<pre>");
           }
   
     my $Str = '';          $r->rflush();
     if(defined($cache->{$name.':error'})) {  
         return '<br><br><br>';  
 #        return 'ERROR in student report for '.$name.'<br>';  
     }  
     if($cache->{$name.':error'} =~ /course/) {  
         $Str .= '<b><font color="blue">No course data for student </font>';  
         $Str .= '<font color="red">'.$username.'.</font></b><br>';  
         return $Str;  
     }      }
       $r->print('</pre>'."\n"); 
       my $Str;
       return;
   }
   
     foreach my $sequence (@$showSequences) {  #######################################################
         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'})) {  
                 $characterCount++;  
                 if($cache->{$name.':'.$problemID.':NoVersion'} eq 'true' ||  
                    $cache->{$name.':'.$problemID.':'.$_.':code'} eq ' ') {  
                     $Str .= ' ';  
                     next;  
                 }  
                 $Str .= '<a href="/adm/grades?symb=';  
                 $Str .= &Apache::lonnet::escape($problem);  
                 $Str .= '&student='.$username.'&domain='.$domain;  
                 $Str .= '&command=submission">';   
                 my $code = $cache->{$name.':'.$problemID.':'.$_.':code'};  
                 my $tries = $cache->{$name.':'.$problemID.':'.$_.':tries'};  
                 if($code eq '*' && $tries < 10 && $tries ne '') {  
                     $code = $tries;  
                 }  
                 $Str .= $code;  
                 $Str.='</a>';  
             }  
         }  
   
         # Output the number of correct answers for the current sequence.  =pod
         # 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'});  
  $Str .= '<font color="#007700">'.$outputProblemsCorrect.'</font>';  
         $Str .= $spacing;  
     }  
   
     # 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'});  
     $Str .= '<font color="#000088">'.$outputProblemsSolved.  
     ' / '.$outputTotalProblems.'</font>';  
   
     return $Str;  =item &CreateInterface()
 }  
   
 =pod  Called by &BuildStudentAssessmentPage to create the top part of the
   page which displays the chart.
   
 =item &CreateLegend()  Inputs: None
   
 This function returns a formatted string containing the legend for the  Returns:  A string containing the HTML for the headers and top table for 
 chart.  The legend describes the symbols used to represent grades for  the chart page.
 problems.  
   
 =cut  =cut
   
 sub CreateLegend {  #######################################################
     my $Str = "<p><pre>".  #######################################################
               "1..9: correct by student in 1..9 tries\n".  sub CreateInterface {
               "   *: correct by student in more than 9 tries\n".      my $Str = '';
       "   +: correct by override\n".  #    $Str .= &CreateLegend();
               "   -: incorrect by override\n".      $Str .= '<table cellspacing="5">'."\n";
       "   .: incorrect attempted\n".      $Str .= '<tr>';
       "   #: ungraded attempted\n".      $Str .= '<td align="center"><b>Sections</b></td>';
               "    : not attempted\n".      $Str .= '<td align="center"><b>Student Data</b></td>';
       "   x: excused".      $Str .= '<td align="center"><b>Sequences and Folders</b></td>';
               "</pre><p>";       $Str .= '</tr>'."\n";
       #
       $Str .= '<tr><td align="center">'."\n";
       $Str .= &Apache::lonstatistics::SectionSelect('Section','multiple',5);
       $Str .= '</td><td align="center">';
       my $only_seq_with_assessments = sub { 
           my $s=shift;
           if ($s->{'num_assess'} < 1) { 
               return 0;
           } else { 
               return 1;
           }
       };
       $Str .= &Apache::lonstatistics::StudentDataSelect('StudentData','multiple',
                                                         5,undef);
       $Str .= '</td><td>'."\n";
       $Str .= &Apache::lonstatistics::MapSelect('Maps','multiple,all',5,
                                                 $only_seq_with_assessments);
       $Str .= '</td></tr>'."\n";
       $Str .= '</table>'."\n";
     return $Str;      return $Str;
 }  }
   
 =pod  
   
 =item &CreateColumnSelectionBox()  #######################################################
   #######################################################
   
   =pod
   
 If there are columns not being displayed then this selection box is created  =item Table Output Routines
 with a list of those columns.  When selections are made and the page   
 refreshed, the columns will be removed from this box and the column is  
 put back in the chart.  If there is no columns to select, no row is added  
 to the interface table.  
   
 =over 4  =over 4
 Input: $CacheData, $headings  
   
   =cut
   
 $CacheData: A pointer to a hash tied to the cached data  #######################################################
   #######################################################
   {
       my $padding;
   
 $headings:  An array of the names of the columns for the student information.    #######################################################
 They are used for displaying which columns are missing.  #######################################################
   
 Output: $notThere  =pod
   
 $notThere: The string contains one row of a table.  The first column has the   =item &CreateTableHeadings()
 name of the selection box.  The second contains the selection box   
 which has a size of four.  
   
 =back  Create HTML for the columns of student data to show.
   Called by &BuildStudentAssessmentPage().  Calls
   &Apache::lonhtmlcommon::CreateHeadings().
   
 =cut  Inputs:
   
 sub CreateColumnSelectionBox {  =over 4
     my ($doNotShow)=@_;  
   
     my $notThere = '';  =item $cache The ubiquitous cache
     $notThere .= '<select name="ReselectColumns" size="4" ';  
     $notThere .= 'multiple="true">'."\n";  
   
     for(my $index=0; $index<$doNotShow->{'count'}; $index++) {  =item $spacing A string of spaces
         my $name = $doNotShow->{$index.':name'};  
         $notThere .= '<option value="';  
         $notThere .= $doNotShow->{$index.':id'}.'">';  
         $notThere .= $name.'</option>'."\n";  
     }  
   
     $notThere .= '</select>';  =item $infoKeys Array ref to names of keys to display from the cache 
   which describe students
   
     return $notThere;  =item $infoHeadings Array ref to headings of columns for student info
 }  
   
 =pod  =item $sequenceKeys Array ref of names of keys to use to retrieve sequence
   data from the cache
   
 =item &CreateColumnSelectors()  =item $sequenceHeadings Array ref of names of sequences used for output.
   
 This function generates the checkboxes above the column headings.  The   =back
 column will be removed if the checkbox is unchecked.  
   
 =over 4  Returns: A string containing the HTML of the table headings.
   
 Input: $CacheData, $headings  =cut
   
 $CacheData: A pointer to a hash tied to the cached data  #######################################################
   #######################################################
   sub CreateTableHeadings {
       #
       $padding = ' 'x3;
       #
       my $Str = '<pre>';
       # First, the @StudentData fields need to be listed
       my @to_show = @Apache::lonstatistics::SelectedStudentData;
       foreach (@to_show) {
           if ($_ eq 'all') {
               @to_show = @Apache::lonstatistics::StudentDataOrder;
               last;
           }
       }
       foreach my $field (@to_show) {
           my $title=$Apache::lonstatistics::StudentData{$field}->{'title'};
           my $base =$Apache::lonstatistics::StudentData{$field}->{'base_width'};
           my $width=$Apache::lonstatistics::StudentData{$field}->{'width'};
           $Str .= $title.' 'x($width-$base).$padding;
       }
       # Now the selected sequences need to be listed
       foreach my $map_symb (@Apache::lonstatistics::SelectedMaps) {
           foreach my $sequence (@Apache::lonstatistics::Sequences) {
               next if ($sequence->{'symb'} ne $map_symb && $map_symb ne 'all');
               next if ($sequence->{'num_assess'} < 1);
               my $title = $sequence->{'title'};
               my $base  = $sequence->{'base_width'};
               my $width = $sequence->{'width'};
               $Str .= $title.' 'x($width-$base).$padding;
           }
       }
       $Str .= 'total';
       $Str .= "</pre>\n";
       return $Str;
   }
   
 $headings:  An array of the names of the columns for the student   #######################################################
 information.  They are used to know what are the student information columns  #######################################################
   
 Output: $present  =pod
   
 $present: The string contains the first row of a table.  Each column contains  =item &ChartOutputStudent($student)
 a checkbox which is left justified.  Currently left justification is used  
 for consistency of location over the column in which it presides.  
   
 =back  Return a line of the chart for a student.
   
 =cut  =cut
   
 sub CreateColumnSelectors {  #######################################################
     my ($infoHeadings, $sequenceHeadings, $sequenceKeys)=@_;  #######################################################
   sub ChartOutputStudent {
     my $present = '';      my $student = shift;
     for(my $index=0; $index<(scalar @$infoHeadings); $index++) {      my $Str = '';
         $present .= '<td align="left">';      # First, the @StudentData fields need to be listed
         $present .= '<input type="checkbox" checked="on" ';      my @to_show = @Apache::lonstatistics::SelectedStudentData;
         $present .= 'name="HeadingColumn'.$infoHeadings->[$index].'" />';      foreach (@to_show) {
         $present .= '</td>'."\n";          if ($_ eq 'all') {
               @to_show = @Apache::lonstatistics::StudentDataOrder;
               last;
           }
     }      }
       foreach my $field (@to_show) {
     for(my $index=0; $index<(scalar @$sequenceHeadings); $index++) {          my $title=$student->{$field};
         $present .= '<td align="left">';          my $base =scalar(my @Tmp = split(//,$title));
         $present .= '<input type="checkbox" checked="on" ';          my $width=$Apache::lonstatistics::StudentData{$field}->{'width'};
         $present .= 'name="SequenceColumn'.$sequenceKeys->[$index].'" />';          $Str .= $title.' 'x($width-$base).$padding;
         $present .= '</td>'."\n";      }
       # Get ALL the students data
       my %StudentsData;
       my @tmp = &Apache::loncoursedata::get_current_state
           ($student->{'username'},$student->{'domain'},undef,
            $ENV{'request.course.id'});
       if ((scalar @tmp > 0) && ($tmp[0] !~ /^error:/)) {
           %StudentsData = @tmp;
     }      }
       if (scalar(@tmp) < 1) {
           $Str .= '<font color="blue">No Course Data</font>'."\n";
           return $Str;
       }
       #
       # By sequence build up the data
       my $studentstats;
       foreach my $map_symb (@Apache::lonstatistics::SelectedMaps) {
           foreach my $seq (@Apache::lonstatistics::Sequences) {
               next if ($map_symb ne $seq->{'symb'} && $map_symb ne 'all');
               next if ($seq->{'num_assess'} < 1);
               my ($performance,$score,$seq_max) =
                   &StudentPerformanceOnSequence($student,\%StudentsData,
                                                 $seq,'linkify');
               $Str .= $performance.$padding;
               $studentstats->{$seq->{'symb'}}->{'score'}= $score;
               $studentstats->{$seq->{'symb'}}->{'max'}  = $seq_max;
           }
       }
       #
       # Total it up and store the statistics info.
       my ($score,$max) = (0,0);
       while (my ($symb,$seq_stats) = each (%{$studentstats})) {
           $Statistics->{$symb}->{'score'} += $seq_stats->{'score'};
           $Statistics->{$symb}->{'max'}   += $seq_stats->{'max'};
           $score += $seq_stats->{'score'};
           $max   += $seq_stats->{'max'};
       }
       my $scorelength = scalar(my @tmp1 = split(//,$score));
       my $maxlength   = scalar(my @tmp2 = split(//,$max));
       $Str .= ' '.' 'x($maxlength-$scorelength).$score.'/'.$max;
       $Str .= " \n";
       return $Str;
   }    
   
     return $present;  #######################################################
 }  #######################################################
   
 #---- END Student Assessment Web Page ----------------------------------------  
   
 #---- Student Assessment Worker Functions ------------------------------------  =pod
   
 sub FindSelectedStudent {  =back
     my($cache, $selectedName, $students)=@_;  
   
     if($selectedName eq 'All Students' ||   =cut
        $selectedName eq 'No Student Selected') {  
         return $selectedName;  
     }  
   
     for(my $index=0; $index<(scalar @$students); $index++) {  #######################################################
         my $fullname = $cache->{$students->[$index].':fullname'};  #######################################################
         if($fullname eq $selectedName) {  
             if($cache->{'StudentAssessmentMove'} eq 'next') {  
                 if($index == ((scalar @$students) - 1)) {  
                     $selectedName = $students->[0];  
                     return $selectedName;  
                 } else {  
                     $selectedName = $students->[$index+1];  
                     return $selectedName;  
                 }  
             } elsif($cache->{'StudentAssessmentMove'} eq 'previous') {  
                 if($index == 0) {  
                     $selectedName = $students->[-1];  
                     return $selectedName;  
                 } else {  
                     $selectedName = $students->[$index-1];  
                     return $selectedName;  
                 }  
             } else {  
                 $selectedName = $students->[$index];  
                 return $selectedName;  
             }  
             last;  
         }  
     }  
   
     return 'No Student Selected';  
 }  }
   
   #######################################################
   #######################################################
   
 =pod  =pod
   
 =item &ShouldShowColumn()  =item &StudentPerformanceOnSequence()
   
 Determine if a specified column should be shown on the chart.  Inputs:
   
 =over 4  =over 4
   
 Input: $cache, $test  =item $student
   
 $cache: A pointer to the hash tied to the cached data  =item $studentdata Hash ref to all student data
   
 $test: The form name of the column (heading.$headingIndex) or   =item $seq Hash ref, the sequence we are working on
 (sequence.$sequenceIndex)  
   
 Output: 0 (false), 1 (true)  =item $links if defined we will output links to each resource.
   
 =back  =back
   
 =cut  =cut
   
 sub ShouldShowColumns {  #######################################################
     my ($cache,$headings,$cacheKey)=@_;  #######################################################
   sub StudentPerformanceOnSequence {
     my @infoKeys=();      my ($student,$studentdata,$seq,$links) = @_;
     my @infoHeadings=();      my $Str = '';
       my $output_width = 0;
     my @sequenceKeys=();      my ($sum,$max) = (0,0);
     my @sequenceHeadings=();      foreach my $resource (@{$seq->{'contents'}}) {
           next if ($resource->{'type'} ne 'assessment');
     my %doNotShow;          my $resource_data = $studentdata->{$resource->{'symb'}};
           my $value = '';
     my $index;          foreach my $partnum (@{$resource->{'parts'}}) {
     my $count = 0;              $max++;
     my $check = '';              my $symbol = ' '; # default to space
     for($index=0; $index < scalar @$headings; $index++) {              #
         $check = 'HeadingColumn'.$headings->[$index];              if (exists($resource_data->{'resource.'.$partnum.'.solved'})) {
         if($cache->{'HeadingsFound'} =~ /$check/) {                  my $status = $resource_data->{'resource.'.$partnum.'.solved'};
             push(@infoHeadings, $headings->[$index]);                  if ($status eq 'correct_by_override') {
             push(@infoKeys, $cacheKey->[$index]);                      $symbol = '+';
         } else {                      $sum++;
             $doNotShow{$count.':name'} = $headings->[$index];                  } elsif ($status eq 'incorrect_by_override') {
             $doNotShow{$count.':id'} = 'HeadingColumn'.$headings->[$index];                      $symbol = '-';
             $count++;                  } elsif ($status eq 'ungraded_attempted') {
                       $symbol = '#';
                   } elsif ($status eq 'incorrect_attempted')  {
                       $symbol = '.';
                   } elsif ($status eq 'excused') {
                       $symbol = 'x';
                       $max--;
                   } elsif ($status eq 'correct_by_student' &&
                       exists($resource_data->{'resource.'.$partnum.'.tries'})){
                       my $num = $resource_data->{'resource.'.$partnum.'.tries'};
                       if ($num > 9) {
                           $symbol = '*';
                       } elsif ($num > 0) {
                           $symbol = $num;
                       } else {
                           $symbol = ' ';
                       }
                       $sum++;
                   } else {
                       $symbol = ' ';
                   }
               } else {
                   # Unsolved.  Did they try?
                   if (exists($resource_data->{'resource.'.$partnum.'.tries'})){
                       $symbol = '.';
                   } else {
                       $symbol = ' ';
                   }
               }
               #
               $output_width++;
               if (defined($links) && $symbol ne ' ') {
                   $symbol = '<a href="/adm/grades'.
                       '?symb='.&Apache::lonnet::escape($resource->{'symb'}).
                           '&student='.$student->{'username'}.
                               '&domain='.$student->{'domain'}.
                                   '&command=submission">'.$symbol.'</a>';
               }
               $value .= $symbol;
         }          }
           $Str .= $value;
     }      }
       # Put on the totals
       my $ratio = $sum.'/'.$max;
       my $ratio_length = scalar(my @tmp1 = split(//,$ratio));
       # Pad with extra spaces
       my $width = $seq->{'width'};
       $Str .= ' 'x($width-$output_width-$ratio_length).$ratio;
       #
       return ($Str,$sum,$max);
   }
   
     foreach my $sequence (split(/\:/,$cache->{'orderedSequences'})) {  #######################################################
         $check = 'SequenceColumn'.$sequence;  #######################################################
         if($cache->{'SequencesFound'} eq 'All Sequences' ||   sub StudentAverageTotal {
            $cache->{'SequencesFound'} =~ /$check/) {      my ($cache, $students, $sequenceKeys)=@_;
             push(@sequenceHeadings, $cache->{$sequence.':title'});      my $Str = "\n<b>Summary Tables:</b>\n";
             push(@sequenceKeys, $sequence);      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'};
           }
    $ProblemsSolved += $cache->{$name.':problemsSolved'};
           $TotalProblems += $cache->{$name.':totalProblems'};
       }
       if ($StudentCount) { 
           $ProblemsSolved = sprintf( "%.2f", 
                                $ProblemsSolved/$StudentCount);
           $TotalProblems /= $StudentCount;
       } else {
           $ProblemsSolved = 0;
           $TotalProblems  = 0;
       }
   
       $Str .= '<table border=2 cellspacing="1">'."\n";
       $Str .= '<tr><td><b>Students Count</b></td><td><b>'.
               $StudentCount.'</b></td></tr>'."\n";
       $Str .= '<tr><td><b>Total Problems</b></td><td><b>'.
               $TotalProblems.'</b></td></tr>'."\n";
       $Str .= '<tr><td><b>Average Correct</b></td><td><b>'.
               $ProblemsSolved.'</b></td></tr>'."\n";
       $Str .= '</table>'."\n";
   
       $Str .= '<table border=2 cellspacing="1">'."\n";
       $Str .= '<tr><th>Title</th><th>Total Problems</th>'.
               '<th>Average Correct</th></tr>'."\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 {          } else {
             $doNotShow{$count.':name'} = $cache->{$sequence.':title'};              $crr="0.00";
             $doNotShow{$count.':id'} = 'SequenceColumn'.$sequence;  
             $count++;  
         }          }
           $Str .= '<tr><td>'.$title.
                   '</td><td align=center>'.$pCount.
                   '</td><td align=center>'.$crr.
                   '</td></tr>'."\n";
     }      }
   
     $doNotShow{'count'} = $count;      $Str .= '</table>'."\n";
   
       return $Str;
   }
   
   #######################################################
   #######################################################
   
   =pod
   
   =item &CreateLegend()
   
   This function returns a formatted string containing the legend for the
   chart.  The legend describes the symbols used to represent grades for
   problems.
   
   =cut
   
     return (\@infoHeadings, \@infoKeys, \@sequenceHeadings,   #######################################################
             \@sequenceKeys, \%doNotShow);  #######################################################
   sub CreateLegend {
       my $Str = "<p><pre>".
                 "   1  correct by student in 1 try\n".
                 "   7  correct by student in 7 tries\n".
                 "   *  correct by student in more than 9 tries\n".
         "   +  correct by hand grading or override\n".
                 "   -  incorrect by override\n".
         "   .  incorrect attempted\n".
         "   #  ungraded attempted\n".
                 "      not attempted (blank field)\n".
         "   x  excused".
                 "</pre><p>";
       return $Str;
 }  }
   
 #---- END Student Assessment Worker Functions --------------------------------  #######################################################
   #######################################################
   
   =pod 
   
   =back
   
   =cut
   
   #######################################################
   #######################################################
   
 1;  1;
   
 __END__  __END__
Removed from v.1.9  
changed lines
  Added in v.1.30

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