[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+)$/) {