version 1.11, 2001/03/24 17:25:54
|
version 1.14, 2001/04/24 15:01:25
|
Line 16
|
Line 16
|
# |
# |
# 2/14 Gerd Kortemeyer) |
# 2/14 Gerd Kortemeyer) |
# |
# |
# 2/14,2/17,2/19,2/20,2/21,2/22,2/23,3/2,3/17,3/24 Gerd Kortemeyer |
# 2/14,2/17,2/19,2/20,2/21,2/22,2/23,3/2,3/17,3/24,04/12 Gerd Kortemeyer |
# |
# |
package Apache::loncreateuser; |
package Apache::loncreateuser; |
|
|
Line 108 ENDENHEAD
|
Line 108 ENDENHEAD
|
my $uhome=&Apache::lonnet::homeserver($ccuname,$ccdomain); |
my $uhome=&Apache::lonnet::homeserver($ccuname,$ccdomain); |
my %incdomains; |
my %incdomains; |
my %inccourses; |
my %inccourses; |
$incdomains{$ENV{'user.domain'}}=1; |
map { |
|
$incdomains{$_}=1; |
|
} %Apache::lonnet::hostdom; |
map { |
map { |
if ($_=~/^user\.priv\.cm\.\/(\w+)\/(\w+)/) { |
if ($_=~/^user\.priv\.cm\.\/(\w+)\/(\w+)/) { |
$inccourses{$1.'_'.$2}=1; |
$inccourses{$1.'_'.$2}=1; |
Line 194 ENDNUSER
|
Line 196 ENDNUSER
|
$area=$carea; |
$area=$carea; |
} else { |
} else { |
if ($area=~/^\/(\w+)\//) { |
if ($area=~/^\/(\w+)\//) { |
$incdomains{$1}=1; |
|
if (&Apache::lonnet::allowed('c'.$trole,$1)) { |
if (&Apache::lonnet::allowed('c'.$trole,$1)) { |
$allows=1; |
$allows=1; |
} |
} |
Line 228 ENDNUSER
|
Line 229 ENDNUSER
|
$r->print('</table>'); |
$r->print('</table>'); |
} |
} |
} |
} |
$r->print('<hr><h3>Add Roles</h3><h4>System Level</h4>'); |
$r->print('<hr><h3>Add Roles</h3>'); |
# |
# |
# Domain level |
# Domain level |
# |
# |
Line 254 ENDNUSER
|
Line 255 ENDNUSER
|
</tr> |
</tr> |
ENDDROW |
ENDDROW |
} |
} |
} ('dc','cc','li','dg','au'); |
} ('dc','li','dg','au'); |
} sort keys %incdomains; |
} sort keys %incdomains; |
$r->print('</table>'); |
$r->print('</table>'); |
# |
# |
Line 265 ENDDROW
|
Line 266 ENDDROW
|
'<th>Group/Section</th><th>Start</th><th>End</th></tr>'); |
'<th>Group/Section</th><th>Start</th><th>End</th></tr>'); |
map { |
map { |
my $thiscourse=$_; |
my $thiscourse=$_; |
|
$thiscourse=~s:/:_:g; |
my %coursedata=&Apache::lonnet::coursedescription($thiscourse); |
my %coursedata=&Apache::lonnet::coursedescription($thiscourse); |
my $area=$coursedata{'description'}; |
my $area=$coursedata{'description'}; |
my $bgcol=$thiscourse; |
my $bgcol=$thiscourse; |
Line 289 ENDDROW
|
Line 291 ENDDROW
|
ENDROW |
ENDROW |
|
|
} |
} |
} ('st','ta','ep','ad','in'); |
} ('st','ta','ep','ad','in','cc'); |
} sort keys %inccourses; |
} 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">'); |