[WWcvs] webwork-modperl: Fixed function unassignSetsFromUsers.

[jj v. a. <we...@ma...>]

Log Message:
-----------
Fixed function unassignSetsFromUsers.

Modified Files:
--------------
    webwork-modperl/lib/WeBWorK/ContentGenerator:
        Instructor.pm

Revision Data
-------------
Index: Instructor.pm
===================================================================
RCS file: /webwork/cvs/system/webwork-modperl/lib/WeBWorK/ContentGenerator/Instructor.pm,v
retrieving revision 1.49
retrieving revision 1.50
diff -Llib/WeBWorK/ContentGenerator/Instructor.pm -Llib/WeBWorK/ContentGenerator/Instructor.pm -u -r1.49 -r1.50
--- lib/WeBWorK/ContentGenerator/Instructor.pm
+++ lib/WeBWorK/ContentGenerator/Instructor.pm
@@ -441,8 +441,8 @@
 
 sub unassignSetsFromUsers {
 	my ($self, $setIDsRef, $userIDsRef) = @_;
-	my @setIDs = $setIDsRef;
-	my @userIDs = $userIDsRef;
+	my @setIDs = @$setIDsRef;
+	my @userIDs = @$userIDsRef;
 	
 	foreach my $setID (@setIDs) {
 		foreach my $userID (@userIDs) {