--- loncom/interface/loncreateuser.pm 2003/07/18 20:53:06 1.62
+++ loncom/interface/loncreateuser.pm 2003/07/19 00:51:05 1.63
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Create a user
#
-# $Id: loncreateuser.pm,v 1.62 2003/07/18 20:53:06 www Exp $
+# $Id: loncreateuser.pm,v 1.63 2003/07/19 00:51:05 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -842,7 +842,7 @@ sub custom_role_editor {
$rolename=$ENV{'form.newrolename'};
}
- $rolename=~s/\W//gs;
+ $rolename=~s/[^A-Za-z0-9]//gs;
unless ($rolename) {
&print_username_entry_form($r);
@@ -931,7 +931,7 @@ sub set_custom_role {
my $rolename=$ENV{'form.rolename'};
- $rolename=~s/\W//gs;
+ $rolename=~s/[^A-Za-z0-9]//gs;
unless ($rolename) {
&print_username_entry_form($r);
@@ -978,8 +978,19 @@ sub set_custom_role {
$sysrole.=':'.$_;
}
}
- $r->print('Defining Role: '.
+ $r->print('
Defining Role: '.
&Apache::lonnet::definerole($rolename,$sysrole,$domrole,$courole));
+ if ($ENV{'request.course.id'}) {
+ my $url='/'.$ENV{'request.course.id'};
+ $url=~s/\_/\//g;
+ $r->print('
Assigning Role to Self: '.
+ &Apache::lonnet::assigncustomrole($ENV{'user.domain'},
+ $ENV{'user.name'},
+ $url,
+ $ENV{'user.domain'},
+ $ENV{'user.name'},
+ $rolename));
+ }
$r->print('