--- loncom/interface/lonwhatsnew.pm	2005/06/06 22:39:59	1.18
+++ loncom/interface/lonwhatsnew.pm	2005/06/07 22:05:11	1.19
@@ -1,5 +1,5 @@
 #
-# $Id: lonwhatsnew.pm,v 1.18 2005/06/06 22:39:59 raeburn Exp $
+# $Id: lonwhatsnew.pm,v 1.19 2005/06/07 22:05:11 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -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);