version 1.23, 2002/01/06 01:29:52
|
version 1.24, 2002/02/08 19:40:42
|
Line 266 ENDENHEAD
|
Line 266 ENDENHEAD
|
my $uhome=&Apache::lonnet::homeserver($ccuname,$ccdomain); |
my $uhome=&Apache::lonnet::homeserver($ccuname,$ccdomain); |
my %incdomains; |
my %incdomains; |
my %inccourses; |
my %inccourses; |
map { |
foreach (%Apache::lonnet::hostdom) { |
$incdomains{$_}=1; |
$incdomains{$_}=1; |
} values %Apache::lonnet::hostdom; |
} |
map { |
foreach (keys(%ENV)) { |
if ($_=~/^user\.priv\.cm\.\/(\w+)\/(\w+)/) { |
if ($_=~/^user\.priv\.cm\.\/(\w+)\/(\w+)/) { |
$inccourses{$1.'_'.$2}=1; |
$inccourses{$1.'_'.$2}=1; |
} |
} |
} %ENV; |
} |
if ($uhome eq 'no_host') { |
if ($uhome eq 'no_host') { |
$r->print(<<ENDNUSER); |
$r->print(<<ENDNUSER); |
<h2>New user $ccuname at $ccdomain</h2> |
<h2>New user $ccuname at $ccdomain</h2> |
Line 306 ENDNUSER
|
Line 306 ENDNUSER
|
$r->print('<h4>Revoke Existing Roles</h4>'. |
$r->print('<h4>Revoke Existing Roles</h4>'. |
'<table border=2><tr><th>Revoke</th><th>Role</th><th>Extent</th>'. |
'<table border=2><tr><th>Revoke</th><th>Role</th><th>Extent</th>'. |
'<th>Start</th><th>End</th>'); |
'<th>Start</th><th>End</th>'); |
map { |
foreach (split(/&/,$rolesdump)) { |
if ($_!~/^rolesdef\&/) { |
if ($_!~/^rolesdef\&/) { |
|
|
my ($area,$role)=split(/=/,$_); |
my ($area,$role)=split(/=/,$_); |
Line 360 ENDNUSER
|
Line 360 ENDNUSER
|
($tstart?localtime($tstart):' ').'</td><td>'. |
($tstart?localtime($tstart):' ').'</td><td>'. |
($tend?localtime($tend):' ')."</td></tr>\n"); |
($tend?localtime($tend):' ')."</td></tr>\n"); |
} |
} |
} split(/&/,$rolesdump); |
} |
$r->print('</table>'); |
$r->print('</table>'); |
} |
} |
my $currentauth=&Apache::lonnet::queryauthenticate($ccuname,$ccdomain); |
my $currentauth=&Apache::lonnet::queryauthenticate($ccuname,$ccdomain); |
Line 488 ENDCOAUTH
|
Line 488 ENDCOAUTH
|
$r->print('<h4>Domain Level</h4>'. |
$r->print('<h4>Domain Level</h4>'. |
'<table border=2><tr><th>Activate</th><th>Role</th><th>Extent</th>'. |
'<table border=2><tr><th>Activate</th><th>Role</th><th>Extent</th>'. |
'<th>Start</th><th>End</th></tr>'); |
'<th>Start</th><th>End</th></tr>'); |
map { |
foreach ( sort( keys(%incdomains))) { |
my $thisdomain=$_; |
my $thisdomain=$_; |
map { |
foreach ('dc','li','dg','au') { |
if (&Apache::lonnet::allowed('c'.$_,$thisdomain)) { |
if (&Apache::lonnet::allowed('c'.$_,$thisdomain)) { |
my $plrole=&Apache::lonnet::plaintext($_); |
my $plrole=&Apache::lonnet::plaintext($_); |
$r->print(<<ENDDROW); |
$r->print(<<ENDDROW); |
Line 507 ENDCOAUTH
|
Line 507 ENDCOAUTH
|
</tr> |
</tr> |
ENDDROW |
ENDDROW |
} |
} |
} ('dc','li','dg','au'); |
} |
} sort keys %incdomains; |
} |
$r->print('</table>'); |
$r->print('</table>'); |
# |
# |
# Course level |
# Course level |
Line 516 ENDDROW
|
Line 516 ENDDROW
|
$r->print('<h4>Course Level</h4>'. |
$r->print('<h4>Course Level</h4>'. |
'<table border=2><tr><th>Activate</th><th>Role</th><th>Extent</th>'. |
'<table border=2><tr><th>Activate</th><th>Role</th><th>Extent</th>'. |
'<th>Group/Section</th><th>Start</th><th>End</th></tr>'); |
'<th>Group/Section</th><th>Start</th><th>End</th></tr>'); |
map { |
foreach (sort( keys(%inccourses))) { |
my $thiscourse=$_; |
my $thiscourse=$_; |
my $protectedcourse=$_; |
my $protectedcourse=$_; |
$thiscourse=~s:_:/:g; |
$thiscourse=~s:_:/:g; |
Line 525 ENDDROW
|
Line 525 ENDDROW
|
my $bgcol=$thiscourse; |
my $bgcol=$thiscourse; |
$bgcol=~s/[^8-9b-e]//g; |
$bgcol=~s/[^8-9b-e]//g; |
$bgcol=substr($bgcol.$bgcol.$bgcol.'ffffff',0,6); |
$bgcol=substr($bgcol.$bgcol.$bgcol.'ffffff',0,6); |
map { |
foreach ('st','ta','ep','ad','in','cc') { |
if (&Apache::lonnet::allowed('c'.$_,$thiscourse)) { |
if (&Apache::lonnet::allowed('c'.$_,$thiscourse)) { |
my $plrole=&Apache::lonnet::plaintext($_); |
my $plrole=&Apache::lonnet::plaintext($_); |
$r->print(" |
$r->print(" |
Line 547 ENDDROW
|
Line 547 ENDDROW
|
</tr> |
</tr> |
ENDROW |
ENDROW |
} |
} |
} ('st','ta','ep','ad','in','cc'); |
} |
} sort keys %inccourses; |
} |
$r->print('</table>'); |
$r->print('</table>'); |
$r->print('<input type=submit value="Modify User">'); |
$r->print('<input type=submit value="Modify User">'); |
$r->print('</form></body></html>'); |
$r->print('</form></body></html>'); |
Line 641 ENDTHREEHEAD
|
Line 641 ENDTHREEHEAD
|
} |
} |
my $now=time; |
my $now=time; |
$r->print('<h3>Modifying Roles</h3>'); |
$r->print('<h3>Modifying Roles</h3>'); |
map { |
foreach (keys (%ENV)) { |
if (($_=~/^form\.rev\:([^\_]+)\_([^\_]+)$/) && ($ENV{$_})) { |
if (($_=~/^form\.rev\:([^\_]+)\_([^\_]+)$/) && ($ENV{$_})) { |
$r->print('Revoking '.$2.' in '.$1.': '. |
$r->print('Revoking '.$2.' in '.$1.': '. |
&Apache::lonnet::assignrole($ENV{'form.cdomain'},$ENV{'form.cuname'}, |
&Apache::lonnet::assignrole($ENV{'form.cdomain'},$ENV{'form.cuname'}, |
Line 658 ENDTHREEHEAD
|
Line 658 ENDTHREEHEAD
|
$ENV{'course.'.$cid.'.home'}).'<br>'); |
$ENV{'course.'.$cid.'.home'}).'<br>'); |
} |
} |
} |
} |
} keys %ENV; |
} |
map { |
foreach (keys(%ENV)) { |
if (($_=~/^form\.act\_([^\_]+)\_([^\_]+)\_([^\_]+)$/) && ($ENV{$_})) { |
if (($_=~/^form\.act\_([^\_]+)\_([^\_]+)\_([^\_]+)$/) && ($ENV{$_})) { |
my $url='/'.$1.'/'.$2; |
my $url='/'.$1.'/'.$2; |
if ($ENV{'form.sec_'.$1.'_'.$2.'_'.$3}) { |
if ($ENV{'form.sec_'.$1.'_'.$2.'_'.$3}) { |
Line 701 ENDTHREEHEAD
|
Line 701 ENDTHREEHEAD
|
&Apache::lonnet::assignrole($ENV{'form.cdomain'},$ENV{'form.cuname'}, |
&Apache::lonnet::assignrole($ENV{'form.cdomain'},$ENV{'form.cuname'}, |
$url,$2,$end,$start).'<br>'); |
$url,$2,$end,$start).'<br>'); |
} |
} |
} keys %ENV; |
} |
$r->print('</body></html>'); |
$r->print('</body></html>'); |
} |
} |
|
|