loncom/interface/loncreateuser.pm - diff

Return to loncreateuser.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.103, 2005/06/06 00:07:43	version 1.104, 2005/06/17 21:04:40
Line 108 sub my_custom_roles {	Line 108 sub my_custom_roles {

sub authorpriv {	sub authorpriv {
my ($auname,$audom)=@_;	my ($auname,$audom)=@_;
if (($auname ne $env{'user.name'}) \|\|	unless (&Apache::lonnet::allowed('cca',$audom.'/'.$auname)) { return ''; }
(($audom ne $env{'user.domain'}) &&
($audom ne $env{'request.role.domain'}))) { return ''; }
unless (&Apache::lonnet::allowed('cca',$audom)) { return ''; }
return 1;	return 1;
}	}

Line 1553 sub handler {	Line 1550 sub handler {
(&Apache::lonnet::allowed('cin',$env{'request.course.id'})) \|\|	(&Apache::lonnet::allowed('cin',$env{'request.course.id'})) \|\|
(&Apache::lonnet::allowed('ccr',$env{'request.course.id'})) \|\|	(&Apache::lonnet::allowed('ccr',$env{'request.course.id'})) \|\|
(&Apache::lonnet::allowed('cep',$env{'request.course.id'})) \|\|	(&Apache::lonnet::allowed('cep',$env{'request.course.id'})) \|\|
(&Apache::lonnet::allowed('cca',$env{'request.role.domain'})) \|\|	(&authorpriv($env{'user.name'},$env{'request.role.domain'})) \|\|
(&Apache::lonnet::allowed('mau',$env{'request.role.domain'}))) {	(&Apache::lonnet::allowed('mau',$env{'request.role.domain'}))) {
&Apache::loncommon::content_type($r,'text/html');	&Apache::loncommon::content_type($r,'text/html');
$r->send_http_header;	$r->send_http_header;