--- loncom/interface/lonwhatsnew.pm 2005/07/15 06:11:16 1.27
+++ loncom/interface/lonwhatsnew.pm 2005/09/21 18:20:22 1.31
@@ -1,5 +1,5 @@
#
-# $Id: lonwhatsnew.pm,v 1.27 2005/07/15 06:11:16 albertel Exp $
+# $Id: lonwhatsnew.pm,v 1.31 2005/09/21 18:20:22 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -390,7 +390,7 @@ END
} else {
$rowColor = $rowColor2;
}
- $r->print('| '.$mailcount.'. | '.$msg->{'shortsub'}.' | '.$msg->{'from'}.'@'.$msg->{'fromdom'}.' | '.$msg->{'sendtime'}.' |
');
+ $r->print('| '.$mailcount.'. | '.$msg->{'shortsub'}.' | '.$msg->{'from'}.'@'.$msg->{'fromdom'}.' | '.$msg->{'sendtime'}.' |
');
$rowNum ++;
$mailcount ++;
}
@@ -422,7 +422,7 @@ END
} else {
$rowColor = $rowColor2;
}
- $r->print('| '.$mailcount.'. | '.$msg->{'shortsub'}.' | '.$msg->{'from'}.'@'.$msg->{'fromdom'}.' | '.$msg->{'sendtime'}.' |
');
+ $r->print('| '.$mailcount.'. | '.$msg->{'shortsub'}.' | '.$msg->{'from'}.'@'.$msg->{'fromdom'}.' | '.$msg->{'sendtime'}.' |
');
$rowNum ++;
$mailcount ++;
}
@@ -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"})) {