--- loncom/lonnet/perl/lonnet.pm	2009/05/13 03:28:41	1.976.2.8
+++ loncom/lonnet/perl/lonnet.pm	2009/09/16 20:02:48	1.976.4.1
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.976.2.8 2009/05/13 03:28:41 raeburn Exp $
+# $Id: lonnet.pm,v 1.976.4.1 2009/09/16 20:02:48 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2715,6 +2715,7 @@ sub get_my_roles {
     }
     my %returnhash=();
     my $now=time;
+    my %privileged;
     foreach my $entry (keys(%dumphash)) {
         my ($role,$tend,$tstart);
         if ($context eq 'userroles') {