--- loncom/lonnet/perl/lonnet.pm	2006/05/01 06:17:32	1.733
+++ loncom/lonnet/perl/lonnet.pm	2006/05/01 16:00:44	1.734
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.733 2006/05/01 06:17:32 raeburn Exp $
+# $Id: lonnet.pm,v 1.734 2006/05/01 16:00:44 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -4024,7 +4024,7 @@ sub get_users_groups {
     my $hashid="$udom:$uname:$courseid";
     my ($grouplist,$cached)=&is_cached_new('getgroups',$hashid);
     if (defined($cached)) {
-        @usersgroups = split/:/,$grouplist;
+        @usersgroups = split(/:/,$grouplist);
     } else {  
         $grouplist = '';
         my %roleshash = &dump('roles',$udom,$uname,$courseid);
@@ -4035,7 +4035,7 @@ sub get_users_groups {
             my $access_end = $env{'course.'.$courseid.
                                   '.default_enrollment_end_date'};
             my $now = time;
-            foreach my $key (keys %roleshash) {
+            foreach my $key (keys(%roleshash)) {
                 if ($key =~ /^\Q$courseid\E\/(\w+)\_gr$/) {
                     my $group = $1;
                     if ($roleshash{$key} =~ /_(\d+)_(\d+)$/) {