loncom/interface/lonwhatsnew.pm - diff

Return to lonwhatsnew.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.30, 2005/09/12 12:49:29	version 1.32, 2005/10/10 13:36:35
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"})) {
Line 642 sub getitems {	Line 645 sub getitems {
$stats{$part}{attempts} = $av_attempts;	$stats{$part}{attempts} = $av_attempts;
$stats{$part}{users} = $users;	$stats{$part}{users} = $users;
$lastreset{$part} = $resourcetracker{$symb."\0".$part."\0resettime"};	$lastreset{$part} = $resourcetracker{$symb."\0".$part."\0resettime"};
	if ($lastreset{$part}) {
	$lastreset{$part} = &Apache::lonnavmaps::timeToHumanString($lastreset{$part});
	}
$warning = 1;	$warning = 1;
}	}
}	}