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

[albertel]

albertel		Thu Jun 22 09:28:33 2006 EDT

  Modified files:              
    /loncom/lonnet/perl	lonnet.pm 
  Log:
  - typo
  
  
Index: loncom/lonnet/perl/lonnet.pm
diff -u loncom/lonnet/perl/lonnet.pm:1.753 loncom/lonnet/perl/lonnet.pm:1.754
--- loncom/lonnet/perl/lonnet.pm:1.753	Thu Jun 22 09:16:09 2006
+++ loncom/lonnet/perl/lonnet.pm	Thu Jun 22 09:28:32 2006
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.753 2006/06/22 13:16:09 albertel Exp $
+# $Id: lonnet.pm,v 1.754 2006/06/22 13:28:32 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -4711,12 +4711,12 @@
                 }
             } elsif ($entry eq 'roles') {
                 $role_id = $token->[2]{id};
-		$content{$entry}{$role_id}} = {
+		$content{$entry}{$role_id} = {
 		                                 role => [],
                                                  access => [],
                                                  section => [],
                                                  group => [],
-                                                };
+                                             };
             } elsif ($entry eq 'users') {
                 $content{'users'} = {};
                 $usercount = 0;