loncom/interface/loncreateuser.pm - diff

Return to loncreateuser.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.12, 2001/04/12 19:43:49	version 1.14, 2001/04/24 15:01:25
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 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;	$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;