[LON-CAPA-cvs] cvs: loncom /auth lonroles.pm

matthew lon-capa-cvs@mail.lon-capa.org
Mon, 25 Nov 2002 16:05:57 -0000


matthew		Mon Nov 25 11:05:57 2002 EDT

  Modified files:              
    /loncom/auth	lonroles.pm 
  Log:
  Fix to crappy display if you don't have a roles.db file.  Skip roles
  which have incomplete information.
  
  
Index: loncom/auth/lonroles.pm
diff -u loncom/auth/lonroles.pm:1.45 loncom/auth/lonroles.pm:1.46
--- loncom/auth/lonroles.pm:1.45	Wed Nov 13 11:54:59 2002
+++ loncom/auth/lonroles.pm	Mon Nov 25 11:05:56 2002
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # User Roles Screen
 #
-# $Id: lonroles.pm,v 1.45 2002/11/13 16:54:59 www Exp $
+# $Id: lonroles.pm,v 1.46 2002/11/25 16:05:56 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -242,6 +242,7 @@
         my $button = 1;
         if ($envkey=~/^user\.role\./) {
 	    my (undef,undef,$role,@pwhere)=split(/\./,$envkey);
+            next if (!defined($role) || $role eq '');
             my $where=join('.',@pwhere);
             my $trolecode=$role.'.'.$where;
             my ($tstart,$tend)=split(/\./,$ENV{$envkey});