version 1.30, 2005/09/12 12:49:29
|
version 1.31, 2005/09/21 18:20:22
|
Line 611 sub getitems {
|
Line 611 sub getitems {
|
$$bombed{$symb}{errorlink} = $errorlink; |
$$bombed{$symb}{errorlink} = $errorlink; |
push(@{$bombs}, $symb); |
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 @parts = @{$resource->parts()}; |
my %stats; |
my %stats; |
my %lastreset = (); |
my %lastreset = (); |
my $warning = 0; |
my $warning = 0; |
my $rowColor; |
my $rowColor; |
foreach my $part (@parts) { |
foreach my $part (@parts) { |
|
if ($resource->handgrade($part) eq 'yes') { |
|
next; |
|
} |
%{$stats{$part}} = (); |
%{$stats{$part}} = (); |
my ($attempts,$users,$corrects,$degdiff,$av_attempts); |
my ($attempts,$users,$corrects,$degdiff,$av_attempts); |
if (exists($resourcetracker{$symb."\0".$part."\0attempts"})) { |
if (exists($resourcetracker{$symb."\0".$part."\0attempts"})) { |