version 1.135, 2006/03/21 16:49:59
|
version 1.137, 2006/04/28 21:58:33
|
Line 50 Presents assessment data about a student
|
Line 50 Presents assessment data about a student
|
package Apache::lonstudentassessment; |
package Apache::lonstudentassessment; |
|
|
use strict; |
use strict; |
use Apache::lonstatistics; |
use Apache::lonstatistics(); |
use Apache::lonhtmlcommon; |
use Apache::lonhtmlcommon(); |
use Apache::loncommon(); |
use Apache::loncommon(); |
use Apache::loncoursedata; |
use Apache::loncoursedata; |
use Apache::lonnet; # for logging porpoises |
use Apache::lonnet; # for logging porpoises |
use Apache::lonlocal; |
use Apache::lonlocal; |
use Apache::grades; |
use Apache::grades(); |
|
use Apache::lonmsgdisplay(); |
use Time::HiRes; |
use Time::HiRes; |
use Spreadsheet::WriteExcel; |
use Spreadsheet::WriteExcel; |
use Spreadsheet::WriteExcel::Utility(); |
use Spreadsheet::WriteExcel::Utility(); |
Line 1441 sub excel_outputstudent {
|
Line 1442 sub excel_outputstudent {
|
foreach my $field (@to_show) { |
foreach my $field (@to_show) { |
my $value = $student->{$field}; |
my $value = $student->{$field}; |
if ($field eq 'comments') { |
if ($field eq 'comments') { |
$value = &Apache::lonmsg::retrieve_instructor_comments |
$value = &Apache::lonmsgdisplay::retrieve_instructor_comments |
($student->{'username'},$student->{'domain'}); |
($student->{'username'},$student->{'domain'}); |
} |
} |
$excel_sheet->write($rows_output,$cols_output++,$value); |
$excel_sheet->write($rows_output,$cols_output++,$value); |
Line 1723 sub csv_outputstudent {
|
Line 1724 sub csv_outputstudent {
|
foreach my $field (@to_show) { |
foreach my $field (@to_show) { |
my $value = $student->{$field}; |
my $value = $student->{$field}; |
if ($field eq 'comments') { |
if ($field eq 'comments') { |
$value = &Apache::lonmsg::retrieve_instructor_comments |
$value = &Apache::lonmsgdisplay::retrieve_instructor_comments |
($student->{'username'},$student->{'domain'}); |
($student->{'username'},$student->{'domain'}); |
} |
} |
$Str .= '"'.&Apache::loncommon::csv_translate($value).'",'; |
$Str .= '"'.&Apache::loncommon::csv_translate($value).'",'; |
Line 1892 sub student_tries_on_sequence {
|
Line 1893 sub student_tries_on_sequence {
|
if ($status eq 'excused') { |
if ($status eq 'excused') { |
$symbol = 'x'; |
$symbol = 'x'; |
$max--; |
$max--; |
} elsif ($status eq 'correct_by_override') { |
} elsif ($status eq 'correct_by_override' && !$resource->is_task()) { |
$symbol = '+'; |
$symbol = '+'; |
$sum++; |
$sum++; |
} elsif ($tries > 0) { |
} elsif ($tries > 0) { |