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

raeburn lon-capa-cvs@mail.lon-capa.org
Wed, 21 Sep 2005 18:20:24 -0000


raeburn		Wed Sep 21 14:20:24 2005 EDT

  Modified files:              
    /loncom/interface	lonwhatsnew.pm 
  Log:
  Do not include handgradeable parts in threshold-based problem display. 
  
  
Index: loncom/interface/lonwhatsnew.pm
diff -u loncom/interface/lonwhatsnew.pm:1.30 loncom/interface/lonwhatsnew.pm:1.31
--- loncom/interface/lonwhatsnew.pm:1.30	Mon Sep 12 08:49:29 2005
+++ loncom/interface/lonwhatsnew.pm	Wed Sep 21 14:20:22 2005
@@ -1,5 +1,5 @@
 #
-# $Id: lonwhatsnew.pm,v 1.30 2005/09/12 12:49:29 matthew Exp $
+# $Id: lonwhatsnew.pm,v 1.31 2005/09/21 18:20:22 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -611,13 +611,16 @@
             $$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"})) {