[LON-CAPA-cvs] cvs: loncom /interface lonwhatsnew.pm

[albertel]

albertel		Tue Jun  7 18:05:12 2005 EDT

  Modified files:              
    /loncom/interface	lonwhatsnew.pm 
  Log:
  - only really look at items that are handgradable 
  
  
Index: loncom/interface/lonwhatsnew.pm
diff -u loncom/interface/lonwhatsnew.pm:1.18 loncom/interface/lonwhatsnew.pm:1.19
--- loncom/interface/lonwhatsnew.pm:1.18	Mon Jun  6 18:39:59 2005
+++ loncom/interface/lonwhatsnew.pm	Tue Jun  7 18:05:11 2005
@@ -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 @@
         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);