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

[raeburn]

raeburn		Thu May 20 18:11:18 2010 EDT

  Modified files:              
    /loncom/lonnet/perl	lonnet.pm 
  Log:
  - List context.
  
  
Index: loncom/lonnet/perl/lonnet.pm
diff -u loncom/lonnet/perl/lonnet.pm:1.1062 loncom/lonnet/perl/lonnet.pm:1.1063
--- loncom/lonnet/perl/lonnet.pm:1.1062	Tue May  4 15:21:29 2010
+++ loncom/lonnet/perl/lonnet.pm	Thu May 20 18:11:18 2010
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.1062 2010/05/04 15:21:29 droeschl Exp $
+# $Id: lonnet.pm,v 1.1063 2010/05/20 18:11:18 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3993,7 +3993,7 @@
                             } elsif ($$role eq 'gr') {
                                 my %rolehash = &get('roles',[$$where.'_'.$$role],$env{'user.domain'},
                                                     $env{'user.name'});
-                                my $trole = split('_',$rolehash{$$where.'_'.$$role},1);
+                                my ($trole) = split('_',$rolehash{$$where.'_'.$$role},1);
                                 (undef,my $group_privs) = split(/\//,$trole);
                                 $group_privs = &unescape($group_privs);
                                 &group_roleprivs(\%allgroups,$$where,$group_privs,$$tend,$$tstart);