[WWcvs] webwork2: made code for filtering guest users a little more clear.

[Sam H. v. a. <we...@ma...>]

Log Message:
-----------
made code for filtering guest users a little more clear.

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

Revision Data
-------------
Index: Login.pm
===================================================================
RCS file: /webwork/cvs/system/webwork2/lib/WeBWorK/ContentGenerator/Login.pm,v
retrieving revision 1.31
retrieving revision 1.32
diff -Llib/WeBWorK/ContentGenerator/Login.pm -Llib/WeBWorK/ContentGenerator/Login.pm -u -r1.31 -r1.32
--- lib/WeBWorK/ContentGenerator/Login.pm
+++ lib/WeBWorK/ContentGenerator/Login.pm
@@ -175,9 +175,13 @@
 	# figure out if there are any valid practice users
 	my @guestUserIDs = grep m/^$practiceUserPrefix/, $db->listUsers;
 	my @GuestUsers = $db->getUsers(@guestUserIDs);
-	my @allowedGuestUsers = grep { defined $_->status and $_->status ne ""
-		and $ce->status_abbrev_has_behavior($_->status, "allow_course_access")
-	} @GuestUsers;
+	my @allowedGuestUsers;
+	foreach my $GuestUser (@GuestUsers) {
+		next unless defined $GuestUser->status;
+		next unless $GusetUser->status ne "";
+		push @allowedGuestUsers, $GuestUser
+			if $ce->status_abbrev_has_behavior($_->status, "allow_course_access");
+	}
 	
 	# form for guest login
 	if (@allowedGuestUsers) {