--- loncom/interface/lonwhatsnew.pm 2005/06/06 22:39:59 1.18
+++ loncom/interface/lonwhatsnew.pm 2005/06/09 17:40:05 1.20
@@ -1,5 +1,5 @@
#
-# $Id: lonwhatsnew.pm,v 1.18 2005/06/06 22:39:59 raeburn Exp $
+# $Id: lonwhatsnew.pm,v 1.20 2005/06/09 17:40:05 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -386,7 +386,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 ++;
}
@@ -561,7 +561,14 @@ sub getitems {
if ($resource->is_problem()) {
my $ctr = 0;
my ($map,$ind,$url)=&Apache::lonnet::decode_symb($symb);
- my ($partlist,$handgrade,$responseType) = &Apache::grades::response_type($url,$symb);
+ my ($partlist,$handgrade,$responseType) =
+ &Apache::grades::response_type($url,$symb);
+ my $handgradeable;
+ foreach my $value (values(%{$handgrade})) {
+ if ($value eq 'yes') { $handgradeable=1; last; }
+ }
+ next if (!$handgradeable);
+
foreach my $student (keys(%$classlist)) {
my ($uname,$udom) = split(/:/,$student);
my %status=&Apache::grades::student_gradeStatus($url,$symb,$udom,$uname,$partlist);