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});