# The LearningOnline Network with CAPA # (Publication Handler # # $Id: lonstudentassessment.pm,v 1.11 2002/09/01 06:23:19 stredwic Exp $ # # Copyright Michigan State University Board of Trustees # # This file is part of the LearningOnline Network with CAPA (LON-CAPA). # # 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 # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # LON-CAPA is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with LON-CAPA; if not, write to the Free Software # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA # # /home/httpd/html/adm/gpl.txt # # http://www.lon-capa.org/ # # (Navigate problems for statistical reports # YEAR=2001 # 5/5,7/9,7/25/1,8/11,9/13,9/26,10/5,10/9,10/22,10/26 Behrouz Minaei # 11/1,11/4,11/16,12/14,12/16,12/18,12/20,12/31 Behrouz Minaei # YEAR=2002 # 1/22,2/1,2/6,2/25,3/2,3/6,3/17,3/21,3/22,3/26,4/7,5/6 Behrouz Minaei # 5/12,5/14,5/15,5/19,5/26,7/16 Behrouz Minaei # ### package Apache::lonstudentassessment; use strict; 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('
Unable to tie database.'); 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 = ''; if($selectedName eq 'No Student Selected') { $Str .= ''."\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 .= ''; $displayString .= 'DISPLAYDATA'.$spacing; $r->print(&Apache::lonhtmlcommon::FormatStudentInformation( \%cache, $_, \@updateColumn, $displayString, 'preformatted')); } $displayString = 'DISPLAYDATA'.$spacing; $r->print(&Apache::lonhtmlcommon::FormatStudentInformation( \%cache, $_, \@after, $displayString, 'preformatted')); $r->print(&StudentReport(\%cache, $_, $spacing, $sequenceKeys)); $r->print("\n"); $r->rflush(); untie(%cache); } } $r->print(''."\n"); if($selected == 0) { $Str .= '
'."\n"; $Str .= '{'sectionList'}); my @selectedSections = split(':',$cache->{'sectionsSelected'}); $Str .= &Apache::lonhtmlcommon::MultipleSectionSelect(\@sections, \@selectedSections, 'Statistics'); $Str .= ' | '; $Str .= &CreateColumnSelectionBox($doNotShow); $Str .= ' | '."\n";
$Str .= 'DISPLAYDATAFORMATTING'; $displayString .= $spacing.' | '."\n";
$Str .= &Apache::lonhtmlcommon::CreateHeadings($cache,
$infoKeys,
$infoHeadings,
$displayString,
'preformatted');
$displayString = 'DISPLAYDATAFORMATTING'.$spacing; $displayString .= ' | '."\n";
$Str .= &Apache::lonhtmlcommon::CreateHeadings($cache,
$sequenceKeys,
$sequenceHeadings,
$displayString,
'preformatted');
$Str .= 'Total Solved/Total Problems | ';
$Str .= '
". "1..9: correct by student in 1..9 tries\n". " *: correct by student in more than 9 tries\n". " +: correct by override\n". " -: incorrect by override\n". " .: incorrect attempted\n". " #: ungraded attempted\n". " : not attempted\n". " x: excused". "
"; return $Str; } =pod =item &CreateColumnSelectionBox() If there are columns not being displayed then this selection box is created 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 $CacheData: A pointer to a hash tied to the cached data $headings: An array of the names of the columns for the student information. They are used for displaying which columns are missing. Output: $notThere $notThere: The string contains one row of a table. The first column has the name of the selection box. The second contains the selection box which has a size of four. =back =cut sub CreateColumnSelectionBox { my ($doNotShow)=@_; my $notThere = ''; $notThere .= ''; return $notThere; } =pod =item &CreateColumnSelectors() This function generates the checkboxes above the column headings. The column will be removed if the checkbox is unchecked. =over 4 Input: $CacheData, $headings $CacheData: A pointer to a hash tied to the cached data $headings: An array of the names of the columns for the student information. They are used to know what are the student information columns Output: $present $present: The string contains the first row of a table. Each column contains a checkbox which is left justified. Currently left justification is used for consistency of location over the column in which it presides. =back =cut sub CreateColumnSelectors { my ($infoHeadings, $sequenceHeadings, $sequenceKeys)=@_; my $present = ''; for(my $index=0; $index<(scalar @$infoHeadings); $index++) { $present .= '