--- loncom/interface/lonwhatsnew.pm 2005/09/12 12:49:29 1.30 +++ loncom/interface/lonwhatsnew.pm 2005/09/21 18:20:22 1.31 @@ -1,5 +1,5 @@ # -# $Id: lonwhatsnew.pm,v 1.30 2005/09/12 12:49:29 matthew Exp $ +# $Id: lonwhatsnew.pm,v 1.31 2005/09/21 18:20:22 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -611,13 +611,16 @@ sub getitems { $$bombed{$symb}{errorlink} = $errorlink; push(@{$bombs}, $symb); } -# Compile maxtries and degree of difficulty for problem parts +# Compile maxtries and degree of difficulty for problem parts, unless handgradeable my @parts = @{$resource->parts()}; my %stats; my %lastreset = (); my $warning = 0; my $rowColor; foreach my $part (@parts) { + if ($resource->handgrade($part) eq 'yes') { + next; + } %{$stats{$part}} = (); my ($attempts,$users,$corrects,$degdiff,$av_attempts); if (exists($resourcetracker{$symb."\0".$part."\0attempts"})) {