version 1.44, 2002/11/12 22:36:38
|
version 1.46, 2002/11/25 16:05:56
|
Line 157 ENDREDIR
|
Line 157 ENDREDIR
|
<title>LON-CAPA User Roles</title> |
<title>LON-CAPA User Roles</title> |
</head> |
</head> |
$bodytag |
$bodytag |
$helptag<p> </p> |
$helptag<br /> |
<script> |
<script> |
$swinfo |
$swinfo |
window.focus(); |
window.focus(); |
Line 242 ENDHEADER
|
Line 242 ENDHEADER
|
my $button = 1; |
my $button = 1; |
if ($envkey=~/^user\.role\./) { |
if ($envkey=~/^user\.role\./) { |
my (undef,undef,$role,@pwhere)=split(/\./,$envkey); |
my (undef,undef,$role,@pwhere)=split(/\./,$envkey); |
|
next if (!defined($role) || $role eq ''); |
my $where=join('.',@pwhere); |
my $where=join('.',@pwhere); |
my $trolecode=$role.'.'.$where; |
my $trolecode=$role.'.'.$where; |
my ($tstart,$tend)=split(/\./,$ENV{$envkey}); |
my ($tstart,$tend)=split(/\./,$ENV{$envkey}); |