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

[raeburn]

raeburn		Wed Dec 14 21:03:53 2011 EDT

  Modified files:              
    /loncom/lonnet/perl	lonnet.pm 
  Log:
  - &get_my_roles() ignores rolesdef entries when called in userroles context.
  
  
Index: loncom/lonnet/perl/lonnet.pm
diff -u loncom/lonnet/perl/lonnet.pm:1.1148 loncom/lonnet/perl/lonnet.pm:1.1149
--- loncom/lonnet/perl/lonnet.pm:1.1148	Wed Dec 14 16:16:50 2011
+++ loncom/lonnet/perl/lonnet.pm	Wed Dec 14 21:03:53 2011
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.1148 2011/12/14 16:16:50 raeburn Exp $
+# $Id: lonnet.pm,v 1.1149 2011/12/14 21:03:53 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3538,6 +3538,7 @@
     foreach my $entry (keys(%dumphash)) {
         my ($role,$tend,$tstart);
         if ($context eq 'userroles') {
+            next if ($entry =~ /^rolesdef/);
 	    ($role,$tend,$tstart)=split(/_/,$dumphash{$entry});
         } else {
             ($tend,$tstart)=split(/\:/,$dumphash{$entry});