--- loncom/lonnet/perl/lonnet.pm	2006/06/22 13:06:50	1.752
+++ loncom/lonnet/perl/lonnet.pm	2006/06/22 13:16:09	1.753
@@ -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 @@ sub parse_access_controls {
             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 = '';