[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.13 and 1.31

version 1.13, 2002/09/22 18:33:01 version 1.31, 2003/03/03 19:28:29
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;   =pod
   
 use strict;  =head1 NAME
 use Apache::lonhtmlcommon;  
 use Apache::loncoursedata;  
 use GDBM_File;  
   
 #my $jr;  lonstudentassessment
   
 sub BuildStudentAssessmentPage {  =head1 SYNOPSIS
     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.  Presents assessment data about a student or a group of students.
     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 Subroutines
     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,  =over 4 
                                    $sequenceKeys, $sequenceHeadings));  
     untie(%cache);  
     if($c->aborted()) {  return $Str; }  
   
     my $selected=0;  
     $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;  =cut
             $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;  #######################################################
 }  #######################################################
   
 #---- Student Assessment Web Page --------------------------------------------  package Apache::lonstudentassessment;
   
 sub CreateInterface {  use strict;
     my($cache,$selectedName,$students,$formName,$doNotShow)=@_;  use Apache::lonstatistics;
   use Apache::lonhtmlcommon;
   use Apache::loncoursedata;
   use Apache::lonnet; # for logging porpoises
   use Spreadsheet::WriteExcel;
   
     my $Str = '';  #######################################################
     $Str .= &CreateLegend();  #######################################################
     $Str .= '<table><tr><td>'."\n";  =pod
     $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";  =item Package Variables
     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;  =over 4
 }  
   
 sub CreateTableHeadings {  =item $Statistics Hash ref to store student data.  Indexed by symb,
     my($cache,$spacing,$infoKeys,$infoHeadings,$sequenceKeys,        contains hashes with keys 'score' and 'max'.
        $sequenceHeadings)=@_;  
   
     my $Str = '';  =cut
     $Str .= '<table border="0" cellpadding="0" cellspacing="0">'."\n";  
   
     $Str .= '<tr>'."\n";  #######################################################
     $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>';  my $Statistics;
     $Str .= '</tr></table>'."\n";  
   
     return $Str;  #######################################################
 }  #######################################################
   
 =pod  =pod
   
 =item &FormatStudentData()  =item $show_links 'yes' or 'no' for linking to student performance data
   
 First, FormatStudentInformation is called and prefixes the course information.  =item $output_mode 'html', 'excel', or 'csv' for output mode
 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.  
   
 =over 4  =item $show 'all' or 'totals' determines how much data is output
   
   =cut
   
   #######################################################
   #######################################################
   my $show_links;
   my $output_mode;
   my $show;
   
   #######################################################
   #######################################################
   # End of package variable declarations
   
   =pod
   
   =back
   
 Input: $name, $studentInformation, $ChartDB  =cut
   
 $name: The name and domain of the current student in name:domain format  #######################################################
   #######################################################
   
 $studentInformation: A pointer to an array holding the names used to   =pod
 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 &BuildStudentAssessmentPage()
 database.  
   
 Output: $Str  Inputs: 
   
 $Str: Formatted string that is an entire row of the chart.  It is a   =over 4
 concatenation of student information and student course information.  
   =item $r Apache Request
   
   =item $c Apache Connection 
   
 =back  =back
   
 =cut  =cut
   
 sub StudentReport {  #######################################################
     my ($cache,$name,$spacing,$showSequences)=@_;  #######################################################
     my ($username,$domain)=split(':',$name);  sub BuildStudentAssessmentPage {
       my ($r,$c)=@_;
     my $Str = '';      undef($Statistics);
     if(defined($cache->{$name.':error'})) {      #
         return $Str;      # Print out the HTML headers for the interface
       #    This also parses the output mode selector
       #    This step must always be done.
       $r->print(&CreateInterface());
       $r->print('<input type="hidden" name="notfirstrun" value="true" />');
       $r->rflush();
       if (! exists($ENV{'form.notfirstrun'})) {
           $r->print(<<ENDMSG);
   <p>
   <font size="+1">
   Please make your selections in the boxes above and hit 
   the button marked &quot;Update&nbsp;Display&quot;.
   </font>
   </p>
   ENDMSG
           return;
     }      }
     if($cache->{$name.':error'} =~ /course/) {      #
         $Str .= '<b><font color="blue">No course data for student </font>';      #
         $Str .= '<font color="red">'.$username.'.</font></b><br>';      my $initialize     = \&html_initialize;
         return $Str;      my $output_student = \&html_outputstudent;
     }      my $finish         = \&html_finish;
       #
     my $hasVersion = 'false';      if ($output_mode eq 'excel') {
     my $hasFinalData = 'false';          $initialize     = \&excel_initialize;
     foreach my $sequence (@$showSequences) {          $output_student = \&excel_outputstudent;
         my $hasData = 'false';          $finish         = \&excel_finish;
         my $characterCount=0;      } elsif ($output_mode eq 'csv') {
         foreach my $problemID (split(':', $cache->{$sequence.':problems'})) {          $initialize     = \&csv_initialize;
             my $problem = $cache->{$problemID.':problem'};          $output_student = \&csv_outputstudent;
             # All grades (except for versionless parts) are displayed as links          $finish         = \&csv_finish;
             # 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.      if($c->aborted()) {  return ; }
                                         ':parts'})) {      #
                 if($cache->{$name.':'.$problemID.':NoVersion'} eq 'true' ||      # Call the initialize routine selected above
                    $cache->{$name.':'.$problemID.':'.$_.':code'} eq ' ' ||      $initialize->($r);
                    $cache->{$name.':'.$problemID.':'.$_.':code'} eq '') {      foreach my $student (@Apache::lonstatistics::Students) {
                     $Str .= ' ';          if($c->aborted()) { 
                     $characterCount++;              $finish->($r);
                     next;              return ; 
                 }  
                 $hasVersion = 'true';  
                 $hasData = 'true';  
                 $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>';  
                 $characterCount++;  
             }  
         }          }
           # Call the output_student routine selected above
           $output_student->($r,$student);
       }
       # Call the "finish" routine selected above
       $finish->($r);
       #
       return;
   }
   
         # 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;  sub get_student_fields_to_show {
         $spacesNeeded -= 3;      my @to_show = @Apache::lonstatistics::SelectedStudentData;
         $Str .= (' 'x$spacesNeeded);      foreach (@to_show) {
           if ($_ eq 'all') {
  my $outputProblemsCorrect = sprintf("%3d", $cache->{$name.':'.$sequence.              @to_show = @Apache::lonstatistics::StudentDataOrder;
                                                             ':problemsCorrect'});              last;
         if($hasData eq 'true') {  
             $Str .= '<font color="#007700">'.$outputProblemsCorrect.'</font>';  
             $hasFinalData = 'true';  
         } else {  
             $Str .= '<font color="#007700">   </font>';  
         }          }
         $Str .= $spacing;  
     }      }
       return @to_show;
   }
   
     # Output the total correct problems over the total number of problems.  sub get_sequences_to_show {
     # I don't like this type of formatting, but it is a solution.  Need      my @Sequences;
     # a way to dynamically determine the space requirements.      foreach my $map_symb (@Apache::lonstatistics::SelectedMaps) {
     my $outputProblemsSolved = sprintf("%4d", $cache->{$name.':problemsSolved'});          foreach my $sequence (@Apache::lonstatistics::Sequences) {
     my $outputTotalProblems  = sprintf("%4d", $cache->{$name.':totalProblems'});              next if ($sequence->{'symb'} ne $map_symb && $map_symb ne 'all');
     if($hasFinalData eq 'true') {              next if ($sequence->{'num_assess'} < 1);
         $Str .= '<font color="#000088">'.$outputProblemsSolved.              push (@Sequences,$sequence);
     ' / '.$outputTotalProblems.'</font>';          }
     } else {  
         $Str .= '<font color="#000088">           </font>';  
     }      }
       return @Sequences;
   }
   
     if($hasVersion eq 'false') {  
         $Str = '<b><font color="blue">No course data.</font></b>';  
     }  
   
     return $Str;  #######################################################
 }  #######################################################
   
 =pod  =pod
   
 =item &CreateLegend()  =item &CreateInterface()
   
 This function returns a formatted string containing the legend for the  Called by &BuildStudentAssessmentPage to create the top part of the
 chart.  The legend describes the symbols used to represent grades for  page which displays the chart.
 problems.  
   Inputs: None
   
   Returns:  A string containing the HTML for the headers and top table for 
   the chart page.
   
 =cut  =cut
   
 sub CreateLegend {  #######################################################
     my $Str = "<p><pre>".  #######################################################
               "   1  correct by student in 1 try\n".  sub CreateInterface {
               "   7  correct by student in 7 tries\n".      my $Str = '';
               "   *  correct by student in more than 9 tries\n".  #    $Str .= &CreateLegend();
       "   +  correct by override\n".      $Str .= '<table cellspacing="5">'."\n";
               "   -  incorrect by override\n".      $Str .= '<tr>';
       "   .  incorrect attempted\n".      $Str .= '<td align="center"><b>Sections</b></td>';
       "   #  ungraded attempted\n".      $Str .= '<td align="center"><b>Student Data</b></td>';
               "      not attempted (blank field)\n".      $Str .= '<td align="center"><b>Sequences and Folders</b></td>';
       "   x  excused".      $Str .= '<td align="center"><b>Output Format</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><td>'."\n";
       $Str .= &CreateAndParseOutputSelector();
       $Str .= '</td></tr>'."\n";
       $Str .= '</table>'."\n";
     return $Str;      return $Str;
 }  }
   
   #######################################################
   #######################################################
   
 =pod  =pod
   
 =item &CreateColumnSelectionBox()  =item &CreateAndParseOutputSelector()
   
 If there are columns not being displayed then this selection box is created  =cut
 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  #######################################################
 Input: $CacheData, $headings  #######################################################
   sub CreateAndParseOutputSelector {
       my $Str = '';
       my $elementname = 'outputmode';
       #
       # Format for output options is 'mode, restrictions';
       my @Options = ('html, with links','html, without links',
                      'html, totals only','excel, totals only',
                      'csv, totals only','csv, everything');
       my $selected = 'html, with links';
       if (exists($ENV{'form.'.$elementname})) {
           if (ref($ENV{'form.'.$elementname} eq 'ARRAY')) {
               $selected = $ENV{'form.'.$elementname}->[0];
           } else {
               $selected = $ENV{'form.'.$elementname};
           }
       }
       #
       # Set package variables describing output mode
       $show_links  = 'no';
       $output_mode = 'html';
       $show        = 'all';
       my ($mode,$restriction) = split(',',$selected);
       $restriction =~ s/^\s*//;
       if ($mode =~ /^(html|excel|csv)$/) {
           $output_mode = $mode;
       } else {
           $output_mode = 'html';
       }
       if ($restriction eq 'with links') {
           $show_links = 'yes';
       } else {
           $show_links = 'no';
       }
       if ($restriction eq 'totals only') {
           $show = 'totals';
       } else {
           $show = 'everything';
       }
       #
       # Build the form element
       $Str = qq/<select size="5" name="$elementname">/;
       foreach my $option (@Options) {
           $Str .= qq/\n    <option value="$option"/;
           $Str .= " selected " if ($option eq $selected);
           $Str .= ">$option<\/option>";
       }
       $Str .= "\n</select>";
       return $Str;
   }
   
   #######################################################
   #######################################################
   
 $CacheData: A pointer to a hash tied to the cached data  =pod
   
 $headings:  An array of the names of the columns for the student information.    =head2 HTML output routines
 They are used for displaying which columns are missing.  
   
 Output: $notThere  =item &html_initialize($r)
   
 $notThere: The string contains one row of a table.  The first column has the   Create labels for the columns of student data to show.
 name of the selection box.  The second contains the selection box   
 which has a size of four.  
   
 =back  =item &html_outputstudent($r,$student)
   
 =cut  Return a line of the chart for a student.
   
 sub CreateColumnSelectionBox {  =item &html_finish($r)
     my ($doNotShow)=@_;  
   
     my $notThere = '';  =cut
     $notThere .= '<select name="ReselectColumns" size="4" ';  
     $notThere .= 'multiple="true">'."\n";  
   
     for(my $index=0; $index<$doNotShow->{'count'}; $index++) {  #######################################################
         my $name = $doNotShow->{$index.':name'};  #######################################################
         $notThere .= '<option value="';  {
         $notThere .= $doNotShow->{$index.':id'}.'">';      my $padding;
         $notThere .= $name.'</option>'."\n";      my $count;
   
   sub html_initialize {
       my ($r) = @_;
       #
       $padding = ' 'x3;
       $count = 1;
       #
       my $Str = "<pre>\n";
       # First, the @StudentData fields need to be listed
       my @to_show = &get_student_fields_to_show();
       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 $sequence (&get_sequences_to_show) {
           my $title = $sequence->{'title'};
           my $base  = $sequence->{'base_width'};
           my $width = $sequence->{'width'};
           $Str .= $title.' 'x($width-$base).$padding;
       }
       $Str .= "total (of shown problems)</pre>\n";
       $Str .= "<pre>";
       $r->print($Str);
       $r->rflush();
       return;
   }
   
   sub html_outputstudent {
       my ($r,$student) = @_;
       my $Str = '';
       # First, the @StudentData fields need to be listed
       my @to_show = &get_student_fields_to_show();
       foreach my $field (@to_show) {
           my $title=$student->{$field};
           my $base = length($title);
           my $width=$Apache::lonstatistics::StudentData{$field}->{'width'};
           $Str .= $title.' 'x($width-$base).$padding;
       }
       # 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";
           $r->print($Str);
           $r->rflush();
           return;
     }      }
       #
       # By sequence build up the data
       my $studentstats;
       my $PerformanceStr = '';
       foreach my $seq (&get_sequences_to_show) {
           my ($performance,$score,$seq_max) =
               &StudentPerformanceOnSequence($student,\%StudentsData,
                                             $seq,$show_links);
           my $ratio = $score.'/'.$seq_max;
           #
           if ($show eq 'totals') {
               $performance = ' 'x(length($seq_max)-length($score)).$ratio;
               $performance .= ' 'x($seq->{'width'}-length($performance));
           } else {
               # Pad with extra spaces
               $performance .= ' 'x($seq->{'width'}-$seq_max-
                                    length($ratio)
                                    ).$ratio;
           }
           #
           $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'};
       }
       $Str .= ' '.' 'x(length($max)-length($score)).$score.'/'.$max;
       $Str .= " \n";
       $r->print($Str);
       #
       $count++;
       if($count % 5 == 0) {
           $r->print("</pre><pre>");
       }
       #
       $r->rflush();
       return;
   }    
   
     $notThere .= '</select>';  sub html_finish {
       my ($r) = @_;
       $r->print("</pre>\n"); 
       $r->rflush();
       return;
   }
   
     return $notThere;  
 }  }
   
   #######################################################
   #######################################################
   
 =pod  =pod
   
 =item &CreateColumnSelectors()  =head2 EXCEL subroutines
   
 This function generates the checkboxes above the column headings.  The   =item &excel_initialize($r)
 column will be removed if the checkbox is unchecked.  
   
 =over 4  =item &excel_outputstudent($r,$student)
   
 Input: $CacheData, $headings  =item &excel_finish($r)
   
 $CacheData: A pointer to a hash tied to the cached data  =cut
   
 $headings:  An array of the names of the columns for the student   #######################################################
 information.  They are used to know what are the student information columns  #######################################################
   {
   
   my $excel_sheet;
   
   sub excel_initialize {
       my ($r) = @_;
       #
       $r->print("<h1>Not implemented yet</h1>");
       return;
       my $filename = '/prtspool/'.
           $ENV{'user.name'}.'_'.$ENV{'user.domain'}.'_'.
               time.'_'.rand(1000000000).'.xls';
       $excel_sheet = Spreadsheet::WriteExcel->new('/home/httpd'.$filename);
       if (! defined($excel_sheet)) {
           $r->log_error("Error creating excel spreadsheet $filename: $!");
           $r->print("Problems creating new Excel file.  ".
                     "This error has been logged.  ".
                     "Please alert your LON-CAPA administrator");
           return 0;
       }
       #
       # The excel spreadsheet stores temporary data in files, then put them
       # together.  If needed we should be able to disable this (memory only).
       # The temporary directory must be specified before calling 'addworksheet'.
       # File::Temp is used to determine the temporary directory.
       $excel_sheet->set_tempdir($Apache::lonnet::tmpdir);
       #
       # Determine the name to give the worksheet
   #    $excel_sheet->addworksheet();
   
 Output: $present      return;
   }
   
 $present: The string contains the first row of a table.  Each column contains  sub excel_outputstudent {
 a checkbox which is left justified.  Currently left justification is used      my ($r,$student) = @_;
 for consistency of location over the column in which it presides.  }
   
 =back  sub excel_finish {
       my ($r) = @_;
   }
   
 =cut  }
   #######################################################
   #######################################################
   
 sub CreateColumnSelectors {  =pod
     my ($infoHeadings, $sequenceHeadings, $sequenceKeys)=@_;  
   
     my $present = '';  =head2 CSV output routines
     for(my $index=0; $index<(scalar @$infoHeadings); $index++) {  
         $present .= '<td align="left">';  
         $present .= '<input type="checkbox" checked="on" ';  
         $present .= 'name="HeadingColumn'.$infoHeadings->[$index].'" />';  
         $present .= '</td>'."\n";  
     }  
   
     for(my $index=0; $index<(scalar @$sequenceHeadings); $index++) {  =item &csv_initialize($r)
         $present .= '<td align="left">';  
         $present .= '<input type="checkbox" checked="on" ';  
         $present .= 'name="SequenceColumn'.$sequenceKeys->[$index].'" />';  
         $present .= '</td>'."\n";  
     }  
   
     return $present;  =item &csv_outputstudent($r,$student)
 }  
   
 #---- END Student Assessment Web Page ----------------------------------------  =item &csv_finish($r)
   
 #---- Student Assessment Worker Functions ------------------------------------  =cut
   
 sub FindSelectedStudent {  #######################################################
     my($cache, $selectedName, $students)=@_;  #######################################################
   {
   
   sub csv_initialize{
       my ($r) = @_;
       $r->print("<h1>Not implemented yet</h1>");
       return;
   }
   
     if($selectedName eq 'All Students' ||   sub csv_outputstudent {
        $selectedName eq 'No Student Selected') {      my ($r,$student) = @_;
         return $selectedName;  }
     }  
   
     for(my $index=0; $index<(scalar @$students); $index++) {  sub csv_finish {
         my $fullname = $cache->{$students->[$index].':fullname'};      my ($r) = @_;
         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,$totalonly) = @_;
     my @infoHeadings=();      $totalonly = 0 if (! defined($totalonly));
       $links = 'no' if (! defined($links));
     my @sequenceKeys=();      my $Str = '';
     my @sequenceHeadings=();      my ($sum,$max) = (0,0);
       foreach my $resource (@{$seq->{'contents'}}) {
           next if ($resource->{'type'} ne 'assessment');
           my $resource_data = $studentdata->{$resource->{'symb'}};
           my $value = '';
           foreach my $partnum (@{$resource->{'parts'}}) {
               $max++;
               my $symbol = ' '; # default to space
               #
               if (exists($resource_data->{'resource.'.$partnum.'.solved'})) {
                   my $status = $resource_data->{'resource.'.$partnum.'.solved'};
                   if ($status eq 'correct_by_override') {
                       $symbol = '+';
                       $sum++;
                   } elsif ($status eq 'incorrect_by_override') {
                       $symbol = '-';
                   } 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 = ' ';
                   }
               }
               #
               if ($links eq 'yes' && $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;
       }
       return ($Str,$sum,$max);
   }
   
     my %doNotShow;  #######################################################
   #######################################################
     my $index;  sub StudentAverageTotal {
     my $count = 0;      my ($cache, $students, $sequenceKeys)=@_;
     my $check = '';      my $Str = "\n<b>Summary Tables:</b>\n";
     for($index=0; $index < scalar @$headings; $index++) {      my %Correct = ();
         $check = 'HeadingColumn'.$headings->[$index];      my $ProblemsSolved = 0;
         if($cache->{'HeadingsFound'} =~ /$check/) {      my $TotalProblems = 0;
             push(@infoHeadings, $headings->[$index]);      my $StudentCount = 0;
             push(@infoKeys, $cacheKey->[$index]);  
         } else {      foreach my $name (@$students) {
             $doNotShow{$count.':name'} = $headings->[$index];          $StudentCount++;
             $doNotShow{$count.':id'} = 'HeadingColumn'.$headings->[$index];          foreach my $sequence (@$sequenceKeys) {
             $count++;              $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;
     }      }
   
     foreach my $sequence (split(/\:/,$cache->{'orderedSequences'})) {      $Str .= '<table border=2 cellspacing="1">'."\n";
         $check = 'SequenceColumn'.$sequence;      $Str .= '<tr><td><b>Students Count</b></td><td><b>'.
         if($cache->{'SequencesFound'} eq 'All Sequences' ||               $StudentCount.'</b></td></tr>'."\n";
            $cache->{'SequencesFound'} =~ /$check/) {      $Str .= '<tr><td><b>Total Problems</b></td><td><b>'.
             push(@sequenceHeadings, $cache->{$sequence.':title'});              $TotalProblems.'</b></td></tr>'."\n";
             push(@sequenceKeys, $sequence);      $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 (\@infoHeadings, \@infoKeys, \@sequenceHeadings,       return $Str;
             \@sequenceKeys, \%doNotShow);  
 }  }
   
 #---- END Student Assessment Worker Functions --------------------------------  #######################################################
   #######################################################
   
   =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
   
   #######################################################
   #######################################################
   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;
   }
   
   #######################################################
   #######################################################
   
   =pod 
   
   =back
   
   =cut
   
   #######################################################
   #######################################################
   
 1;  1;
   
 __END__  __END__
Removed from v.1.13  
changed lines
  Added in v.1.31

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