--- loncom/homework/grades.pm 2004/09/24 21:08:27 1.204.2.4 +++ loncom/homework/grades.pm 2004/09/29 05:45:34 1.204.2.7 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # The LON-CAPA Grading handler # -# $Id: grades.pm,v 1.204.2.4 2004/09/24 21:08:27 albertel Exp $ +# $Id: grades.pm,v 1.204.2.7 2004/09/29 05:45:34 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -3846,7 +3846,8 @@ sub scantron_find_student { sub scantron_filter { my ($curres)=@_; - if (ref($curres) && $curres->is_problem() && !$curres->randomout) { + # randomout is dysfunctional at best for this purpose + if (ref($curres) && $curres->is_problem()) { #&& !$curres->randomout) { return 1; } return 0; @@ -3998,7 +3999,7 @@ sub scantron_form_start { - + @@ -4471,7 +4472,8 @@ sub scantron_validate_CODE { $line,'incorrectCODE',\%allcodes); return(1,$currentphase); } - if (exists($usedCODEs{$CODE}) && $ENV{'form.scantron_CODEunique'} + if (exists($usedCODEs{$CODE}) + && $ENV{'form.scantron_CODEunique'} eq 'yes' && !$$scan_record{'scantron.CODE_ignore_dup'}) { &scantron_get_correction($r,$i,$scan_record, \%scantron_config,