--- loncom/interface/loncreateuser.pm 2009/08/28 00:02:37 1.311
+++ loncom/interface/loncreateuser.pm 2009/09/05 20:17:35 1.313
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Create a user
#
-# $Id: loncreateuser.pm,v 1.311 2009/08/28 00:02:37 raeburn Exp $
+# $Id: loncreateuser.pm,v 1.313 2009/09/05 20:17:35 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -1559,8 +1559,10 @@ sub new_domain_roles {
&mt('Extent').''.
'
'.&mt('Start').' | '.&mt('End').' | '.
&Apache::loncommon::end_data_table_header_row();
+ my @allroles = &Apache::lonuserutils::roles_by_context('domain');
foreach my $thisdomain (sort(&Apache::lonnet::all_domains())) {
- foreach my $role ('dc','li','dg','au','sc') {
+ foreach my $role (@allroles) {
+ next if ($role eq 'ad');
if (&Apache::lonnet::allowed('c'.$role,$thisdomain)) {
my $plrole=&Apache::lonnet::plaintext($role);
my %lt=&Apache::lonlocal::texthash(
@@ -5151,7 +5153,8 @@ sub rolechg_contexts {
createcourse => 'Course Creation',
course => 'User Management in course',
domain => 'User Management in domain',
- selfenroll => 'Self-enrolled',
+ selfenroll => 'Self-enrolled',
+ requestcourses => 'Course Request',
);
return %lt;
}