--- loncom/interface/lonwhatsnew.pm 2005/09/12 01:45:25 1.28
+++ loncom/interface/lonwhatsnew.pm 2005/10/10 13:36:35 1.32
@@ -1,5 +1,5 @@
#
-# $Id: lonwhatsnew.pm,v 1.28 2005/09/12 01:45:25 raeburn Exp $
+# $Id: lonwhatsnew.pm,v 1.32 2005/10/10 13:36:35 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"})) {
@@ -642,6 +645,9 @@ sub getitems {
$stats{$part}{attempts} = $av_attempts;
$stats{$part}{users} = $users;
$lastreset{$part} = $resourcetracker{$symb."\0".$part."\0resettime"};
+ if ($lastreset{$part}) {
+ $lastreset{$part} = &Apache::lonnavmaps::timeToHumanString($lastreset{$part});
+ }
$warning = 1;
}
}