[LON-CAPA-cvs] cvs: loncom /lonnet/perl lonnet.pm

albertel lon-capa-cvs@mail.lon-capa.org
Mon, 01 May 2006 16:00:44 -0000


albertel		Mon May  1 12:00:44 2006 EDT

  Modified files:              
    /loncom/lonnet/perl	lonnet.pm 
  Log:
  - style police
  
  
Index: loncom/lonnet/perl/lonnet.pm
diff -u loncom/lonnet/perl/lonnet.pm:1.733 loncom/lonnet/perl/lonnet.pm:1.734
--- loncom/lonnet/perl/lonnet.pm:1.733	Mon May  1 02:17:32 2006
+++ loncom/lonnet/perl/lonnet.pm	Mon May  1 12:00:44 2006
@@ -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 @@
     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 @@
             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+)$/) {