--- loncom/interface/statistics/lonstudentassessment.pm 2005/08/26 21:53:23 1.125 +++ loncom/interface/statistics/lonstudentassessment.pm 2006/01/22 02:10:03 1.126 @@ -1,6 +1,6 @@ # The LearningOnline Network with CAPA # -# $Id: lonstudentassessment.pm,v 1.125 2005/08/26 21:53:23 albertel Exp $ +# $Id: lonstudentassessment.pm,v 1.126 2006/01/22 02:10:03 bowersj2 Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1411,8 +1411,9 @@ sub excel_outputstudent { if ($chosen_output->{'correct'}) { # only indiciate if each item is correct or not foreach my $value (@$rawdata) { - # nonzero means correct - $value = 1 if ($value > 0); + # positive means correct, 0 or negative means + # incorrect + $value = $value > 0 ? 1 : 0; $excel_sheet->write($rows_output,$cols_output++,$value); } } else {