--- loncom/homework/grades.pm	2007/10/11 20:25:34	1.452
+++ loncom/homework/grades.pm	2007/10/11 21:27:50	1.453
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # The LON-CAPA Grading handler
 #
-# $Id: grades.pm,v 1.452 2007/10/11 20:25:34 banghart Exp $
+# $Id: grades.pm,v 1.453 2007/10/11 21:27:50 banghart Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -526,14 +526,18 @@ sub getclasslist {
 	    }
 	}
 	# filter students according to groups selected
+	my @stu_groups = split(/,/,$group);
 	if (@getgroup) {
 	    my $exclude = 1;
 	    foreach my $grp(@getgroup) {
-	        if ($group eq $grp) {
-	            $exclude = 0;
-	        } elsif (($grp eq 'none') && !$group) {
-	            $exclude = 0;
+	        foreach my $stu_group(@stu_groups) {
+	            if ($stu_group eq $grp) {
+	                $exclude = 0;
+    	            } 
 	        }
+    	        if (($grp eq 'none') && !$group) {
+        	        $exclude = 0;
+        	}
 	    }
 	    if ($exclude) {
 	        delete($classlist->{$student});