[WWcvs] webwork2: Gateway update: reflect use of listUserSets to list

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

Log Message:
-----------
Gateway update: reflect use of listUserSets to list non-versioned sets

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

Revision Data
-------------
Index: ProblemSet.pm
===================================================================
RCS file: /webwork/cvs/system/webwork2/lib/WeBWorK/ContentGenerator/ProblemSet.pm,v
retrieving revision 1.68
retrieving revision 1.69
diff -Llib/WeBWorK/ContentGenerator/ProblemSet.pm -Llib/WeBWorK/ContentGenerator/ProblemSet.pm -u -r1.68 -r1.69
--- lib/WeBWorK/ContentGenerator/ProblemSet.pm
+++ lib/WeBWorK/ContentGenerator/ProblemSet.pm
@@ -128,10 +128,10 @@
 	my $courseID = $urlpath->arg("courseID");
 	my $user = $r->param('user');
 	my $eUserID = $r->param("effectiveUser");
-	my @allsetIDs = sortByName(undef, $db->listUserSets($eUserID));
- # exclude versioned set IDs from the listing of global sets
-	my @setIDs = grep { $_ !~ /,v\d+$/ } @allsetIDs;
-	
+
+# note that listUserSets does not list versioned sets
+	my @setIDs = sortByName(undef, $db->listUserSets($eUserID));
+
 	# do not show unpublished siblings unless user is allowed to view unpublished sets, and 
         # exclude gateway tests 
 	unless ($authz->hasPermissions($user, "view_unpublished_sets") ) {