loncom/interface/loncreateuser.pm - diff

Return to loncreateuser.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.6, 2001/03/03 00:50:11	version 1.7, 2001/03/17 15:06:57
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 Gerd Kortemeyer	# 2/14,2/17,2/19,2/20,2/21,2/22,2/23,3/2,3/17 Gerd Kortemeyer
#	#
package Apache::loncreateuser;	package Apache::loncreateuser;

Line 182 ENDNUSER	Line 182 ENDNUSER
my %coursedata=&Apache::lonnet::coursedescription($1.'_'.$2);	my %coursedata=&Apache::lonnet::coursedescription($1.'_'.$2);
my $carea='Course: '.$coursedata{'description'};	my $carea='Course: '.$coursedata{'description'};
$inccourses{$1.'_'.$2}=1;	$inccourses{$1.'_'.$2}=1;
if (&Apache::lonnet::allowed('c'.$trole,$1.'_'.$2)) {	if (&Apache::lonnet::allowed('c'.$trole,$1.'/'.$2)) {
$allows=1;	$allows=1;
}	}
$bgcol=$1.'_'.$2;	$bgcol=$1.'_'.$2;
Line 193 ENDNUSER	Line 193 ENDNUSER
}	}
$area=$carea;	$area=$carea;
} else {	} else {
if ($1) {	if ($area=~/^\/(\w+)\//) {
$incdomains{$1}=1;	$incdomains{$1}=1;
if (&Apache::lonnet::allowed('c'.$trole,$1)) {	if (&Apache::lonnet::allowed('c'.$trole,$1)) {
$allows=1;	$allows=1;
}	}
	} else {
	if (&Apache::lonnet::allowed('c'.$trole,'/')) {
	$allows=1;
	}
}	}
}	}