version 1.13, 2000/10/26 18:54:11
|
version 1.15, 2000/10/26 21:43:18
|
Line 53 sub handler {
|
Line 53 sub handler {
|
$where=~s/^\///; |
$where=~s/^\///; |
my ($cdom,$cnum,$csec)=split(/\//,$where); |
my ($cdom,$cnum,$csec)=split(/\//,$where); |
&Apache::lonnet::appenv('request.role' => $trolecode, |
&Apache::lonnet::appenv('request.role' => $trolecode, |
'request.sec' => $csec); |
'request.course.sec' => $csec); |
if ($cnum) { |
if ($cnum) { |
&Apache::lonuserstate::readmap($cdom.'/'.$cnum); |
&Apache::lonuserstate::readmap($cdom.'/'.$cnum); |
if ($ENV{'form.orgurl'}) { |
if ($ENV{'form.orgurl'}) { |
Line 242 ENDHEADER
|
Line 242 ENDHEADER
|
'</td><td>'.$tremark.' </td></tr>'."\n"); |
'</td><td>'.$tremark.' </td></tr>'."\n"); |
} |
} |
} |
} |
|
my $tremark=''; |
|
if ($ENV{'request.role'} eq 'cm') { |
|
$r->print('<tr bgcolor="#33FF33">'); |
|
$tremark='Currently selected.'; |
|
} else { |
|
$r->print('<tr bgcolor="#77FF77">'); |
|
} |
|
unless ($nochoose) { |
|
if ($ENV{'request.role'} ne 'cm') { |
|
$r->print('<td><input type=submit value=Select name="cm"></td>'); |
|
} else { |
|
$r->print('<td> </td>'); |
|
} |
|
} |
|
$r->print('<td colspan=5>No role specified'. |
|
'</td><td>'.$tremark.' </td></tr>'."\n"); |
|
|
$r->print('</table>'); |
$r->print('</table>'); |
unless ($nochoose) { |
unless ($nochoose) { |
Line 249 ENDHEADER
|
Line 265 ENDHEADER
|
} |
} |
# ------------------------------------------------------------ Priviledges Info |
# ------------------------------------------------------------ Priviledges Info |
if ($advanced) { |
if ($advanced) { |
$r->print('<hr><h2>Priviledges</h2>'); |
$r->print('<hr><h2>Current Priviledges</h2>'); |
|
|
foreach $envkey (sort keys %ENV) { |
foreach $envkey (sort keys %ENV) { |
if ($envkey=~/^user\.priv\./) { |
if ($envkey=~/^user\.priv\.$ENV{'request.role'}\./) { |
my ($dum1,$dum2,@pwhere)=split(/\./,$envkey); |
my $where=$envkey; |
my $where=join('.',@pwhere); |
$where=~s/^user\.priv\.$ENV{'request.role'}\.//; |
my $ttype; |
my $ttype; |
my $twhere; |
my $twhere; |
my ($tdom,$trest)= |
my ($tdom,$trest,$tsec)= |
split(/\//,Apache::lonnet::declutter($where)); |
split(/\//,Apache::lonnet::declutter($where)); |
if ($trest) { |
if ($trest) { |
$ttype='Course'; |
$ttype='Course'; |
$twhere=$cdes{$tdom.'/'.$trest}; |
$twhere=$cdes{$tdom.'/'.$trest}; |
|
if ($tsec) { |
|
$twhere.=' (Section/Group: '.$tsec.')'; |
|
} |
} elsif ($tdom) { |
} elsif ($tdom) { |
$ttype='Domain'; |
$ttype='Domain'; |
$twhere=$tdom; |
$twhere=$tdom; |