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

[albertel]

albertel		Thu Jun 22 09:16:11 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.752 loncom/lonnet/perl/lonnet.pm:1.753
--- loncom/lonnet/perl/lonnet.pm:1.752	Thu Jun 22 09:06:50 2006
+++ loncom/lonnet/perl/lonnet.pm	Thu Jun 22 09:16:09 2006
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.752 2006/06/22 13:06:50 raeburn Exp $
+# $Id: lonnet.pm,v 1.753 2006/06/22 13:16:09 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -4707,18 +4707,18 @@
             if ($entry eq 'scope') {
                 my $type = $token->[2]{'type'};
                 if (($type eq 'course') || ($type eq 'group')) {
-                    %{$content{'roles'}} = ();
+                    $content{'roles'} = {};
                 }
             } elsif ($entry eq 'roles') {
                 $role_id = $token->[2]{id};
-                %{$content{$entry}{$role_id}} = (
-                                                 role => [],
+		$content{$entry}{$role_id}} = {
+		                                 role => [],
                                                  access => [],
                                                  section => [],
                                                  group => [],
-                                                );
+                                                };
             } elsif ($entry eq 'users') {
-                %{$content{'users'}} = ();
+                $content{'users'} = {};
                 $usercount = 0;
             } elsif ($entry eq 'user') {
                 $user = '';