version 1.68, 2003/09/21 21:40:06
|
version 1.69, 2003/10/13 21:41:19
|
Line 548 ENDCOAUTH
|
Line 548 ENDCOAUTH
|
'<th>Start</th><th>End</th></tr>'); |
'<th>Start</th><th>End</th></tr>'); |
foreach ( sort( keys(%incdomains))) { |
foreach ( sort( keys(%incdomains))) { |
my $thisdomain=$_; |
my $thisdomain=$_; |
foreach ('dc','li','dg','au') { |
foreach ('dc','li','dg','au','sc') { |
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); |