--- loncom/interface/loncreateuser.pm	2009/08/28 00:02:37	1.311
+++ loncom/interface/loncreateuser.pm	2009/09/05 01:13:02	1.312
@@ -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.312 2009/09/05 01:13:02 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1559,8 +1559,10 @@ sub new_domain_roles {
     &mt('Extent').'</th>'.
     '<th>'.&mt('Start').'</th><th>'.&mt('End').'</th>'.
     &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(