--- loncom/interface/statistics/lonstudentassessment.pm 2014/03/28 14:43:26 1.174 +++ loncom/interface/statistics/lonstudentassessment.pm 2019/03/20 03:39:48 1.176 @@ -1,6 +1,6 @@ # The LearningOnline Network with CAPA # -# $Id: lonstudentassessment.pm,v 1.174 2014/03/28 14:43:26 bisitz Exp $ +# $Id: lonstudentassessment.pm,v 1.176 2019/03/20 03:39:48 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -605,7 +605,7 @@ sub count_parts { sub get_resources { my ($navmap,$sequence) = @_; my @resources = $navmap->retrieveResources($sequence, - sub { shift->is_problem(); }, + sub { shift->is_gradable(); }, 0,0,0); return @resources; } @@ -2144,7 +2144,7 @@ sub student_performance_on_sequence { } if ($randompick) { my @uniquetotals = keys(%ptsfreq); - if ((@uniquetotals = 1) && ($ptsfreq{$uniquetotals[0]} > 0)) { + if ((@uniquetotals == 1) && ($ptsfreq{$uniquetotals[0]} > 0)) { $max = $max * $randompick/$ptsfreq{$uniquetotals[0]}; } }