loncom/interface/loncreateuser.pm - diff

Return to loncreateuser.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.62, 2003/07/18 20:53:06	version 1.63, 2003/07/19 00:51:05
Line 842 sub custom_role_editor {	Line 842 sub custom_role_editor {
$rolename=$ENV{'form.newrolename'};	$rolename=$ENV{'form.newrolename'};
}	}

$rolename=~s/\W//gs;	$rolename=~s/[^A-Za-z0-9]//gs;

unless ($rolename) {	unless ($rolename) {
&print_username_entry_form($r);	&print_username_entry_form($r);
Line 931 sub set_custom_role {	Line 931 sub set_custom_role {

my $rolename=$ENV{'form.rolename'};	my $rolename=$ENV{'form.rolename'};

$rolename=~s/\W//gs;	$rolename=~s/[^A-Za-z0-9]//gs;

unless ($rolename) {	unless ($rolename) {
&print_username_entry_form($r);	&print_username_entry_form($r);
Line 978 sub set_custom_role {	Line 978 sub set_custom_role {
$sysrole.=':'.$_;	$sysrole.=':'.$_;
}	}
}	}
$r->print('Defining Role: '.	$r->print('<br />Defining Role: '.
&Apache::lonnet::definerole($rolename,$sysrole,$domrole,$courole));	&Apache::lonnet::definerole($rolename,$sysrole,$domrole,$courole));
	if ($ENV{'request.course.id'}) {
	my $url='/'.$ENV{'request.course.id'};
	$url=~s/\_/\//g;
	$r->print('<br />Assigning Role to Self: '.
	&Apache::lonnet::assigncustomrole($ENV{'user.domain'},
	$ENV{'user.name'},
	$url,
	$ENV{'user.domain'},
	$ENV{'user.name'},
	$rolename));
	}
$r->print('</body></html>');	$r->print('</body></html>');
}	}