[WWcvs] webwork2: Gateway update: use listUserSets and listUserSetVersions to

[Gavin L. v. a. <we...@ma...>]

Log Message:
-----------
Gateway update: use listUserSets and listUserSetVersions to show grades
for all sets.

Modified Files:
--------------
    webwork2/lib/WeBWorK/ContentGenerator:
        Grades.pm

Revision Data
-------------
Index: Grades.pm
===================================================================
RCS file: /webwork/cvs/system/webwork2/lib/WeBWorK/ContentGenerator/Grades.pm,v
retrieving revision 1.20
retrieving revision 1.21
diff -Llib/WeBWorK/ContentGenerator/Grades.pm -Llib/WeBWorK/ContentGenerator/Grades.pm -u -r1.20 -r1.21
--- lib/WeBWorK/ContentGenerator/Grades.pm
+++ lib/WeBWorK/ContentGenerator/Grades.pm
@@ -210,7 +210,11 @@
 	die "record for user $studentName not found" unless $studentRecord;
 	my $root = $ce->{webworkURLs}->{root};
 	
-	my @setIDs    = sort $db->listUserSets($studentName);
+# listUserSets() excludes versioned sets, which we probably want to 
+# list here, so we also get the versioned sets
+	my @setIDs    = sort(( $db->listUserSets($studentName),
+			       $db->listUserSetVersions($studentName) ));
+
 	my $fullName = join("", $studentRecord->first_name," ", $studentRecord->last_name);
 	my $effectiveUser = $studentRecord->user_id();
 	my $act_as_student_url = "$root/$courseName/?user=".$r->param("user").