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

albertel lon-capa-cvs@mail.lon-capa.org
Fri, 15 Jul 2005 05:30:07 -0000


albertel		Fri Jul 15 01:30:07 2005 EDT

  Modified files:              
    /loncom/interface	lonwhatsnew.pm 
  Log:
  - use lonnavmaps to do the hand grade checks, shaves about anoth 5 secods off since we only have to parse the part/response info once rather tahn twice 
  
  
Index: loncom/interface/lonwhatsnew.pm
diff -u loncom/interface/lonwhatsnew.pm:1.24 loncom/interface/lonwhatsnew.pm:1.25
--- loncom/interface/lonwhatsnew.pm:1.24	Thu Jul 14 17:30:25 2005
+++ loncom/interface/lonwhatsnew.pm	Fri Jul 15 01:30:06 2005
@@ -1,5 +1,5 @@
 #
-# $Id: lonwhatsnew.pm,v 1.24 2005/07/14 21:30:25 albertel Exp $
+# $Id: lonwhatsnew.pm,v 1.25 2005/07/15 05:30:06 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -564,11 +564,12 @@
         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=$resource->parts();
 	    my $handgradeable;
-	    foreach my $value (values(%{$handgrade})) {
-		if ($value eq 'yes') { $handgradeable=1; last; }
+	    foreach my $part (@$partlist) {
+		if ($resource->handgrade($part) eq 'yes') {
+		    $handgradeable=1; last;
+		}
 	    }
 	    if ($handgradeable) {
 		foreach my $student (keys(%$classlist)) {