--- loncom/homework/grades.pm 2007/02/23 00:23:49 1.390
+++ loncom/homework/grades.pm 2007/03/14 19:15:37 1.392
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# The LON-CAPA Grading handler
#
-# $Id: grades.pm,v 1.390 2007/02/23 00:23:49 albertel Exp $
+# $Id: grades.pm,v 1.392 2007/03/14 19:15:37 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -117,8 +117,12 @@ sub response_type {
my $navmap = Apache::lonnavmaps::navmap->new();
my $res = $navmap->getBySymb($symb);
my $partlist = $res->parts();
+ my %vPart =
+ map { $_ => 1 } (&Apache::loncommon::get_env_multiple('form.vPart'));
my (%response_types,%handgrade);
foreach my $part (@{ $partlist }) {
+ next if (%vPart && !exists($vPart{$part}));
+
my @types = $res->responseType($part);
my @ids = $res->responseIds($part);
for (my $i=0; $i < scalar(@ids); $i++) {
@@ -2985,7 +2989,7 @@ sub viewgrades {
}
$result.=''.''.''."\n".
'';
- $result.='';
#table listing all the students in a section/class