--- loncom/interface/loncreateuser.pm	2009/10/30 04:44:56	1.319
+++ loncom/interface/loncreateuser.pm	2009/10/31 14:27:48	1.321
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Create a user
 #
-# $Id: loncreateuser.pm,v 1.319 2009/10/30 04:44:56 raeburn Exp $
+# $Id: loncreateuser.pm,v 1.321 2009/10/31 14:27:48 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3957,10 +3957,22 @@ sub handler {
                   text=>"List Users"});
             my ($cb_jscript,$jscript,$totcodes,$codetitles,$idlist,$idlist_titles);
             my $formname = 'studentform';
-            if ($context eq 'domain' && $env{'form.roletype'} eq 'course') {
-                ($cb_jscript,$jscript,$totcodes,$codetitles,$idlist,$idlist_titles) = 
-                    &Apache::lonuserutils::courses_selector($env{'request.role.domain'},
-                                                            $formname);
+            if (($context eq 'domain') && (($env{'form.roletype'} eq 'course') ||
+                ($env{'form.roletype'} eq 'community'))) {
+                if ($env{'form.roletype'} eq 'course') {
+                    ($cb_jscript,$jscript,$totcodes,$codetitles,$idlist,$idlist_titles) = 
+                        &Apache::lonuserutils::courses_selector($env{'request.role.domain'},
+                                                                $formname);
+                } elsif ($env{'form.roletype'} eq 'community') {
+                    $cb_jscript = 
+                        &Apache::loncommon::coursebrowser_javascript($env{'request.role.domain'});
+                    my %elements = (
+                                      coursepick => 'radio',
+                                      coursetotal => 'text',
+                                      courselist => 'text',
+                                   );
+                    $jscript = &Apache::lonhtmlcommon::set_form_elements(\%elements);
+                }
                 $jscript .= &verify_user_display();
                 my $js = &add_script($jscript).$cb_jscript;
                 my $loadcode = 
@@ -4307,17 +4319,20 @@ sub print_main_menu {
         }
         
         if (!exists($permission->{'cusr_section'})){
-            
-            push(@{ $menu[2]->{items} },
-                {
-                 linktext => 'Automated Enrollment',
-                 icon => 'roles.png',
-                 #help => 'Course_Automated_Enrollment',
-                 permission => (&Apache::lonnet::auto_run($cnum,$cdom)
-                                     && $permission->{'cusr'}),
-                 url  => '/adm/populate',
-                 linktitle => 'Automated enrollment manager.',
-                },
+            if ($crstype ne 'Community') {
+                push(@{ $menu[2]->{items} },
+                    {
+                     linktext => 'Automated Enrollment',
+                     icon => 'roles.png',
+                     #help => 'Course_Automated_Enrollment',
+                     permission => (&Apache::lonnet::auto_run($cnum,$cdom)
+                                         && $permission->{'cusr'}),
+                     url  => '/adm/populate',
+                     linktitle => 'Automated enrollment manager.',
+                    }
+                );
+            }
+            push(@{ $menu[2]->{items} }, 
                 {
                  linktext => 'User Self-Enrollment',
                  icon => 'cstr.png',
@@ -4327,7 +4342,6 @@ sub print_main_menu {
                  linktitle => 'Configure user self-enrollment.',
                 },
             );
-        
         }
     };
 return Apache::lonhtmlcommon::generate_menu(@menu);
@@ -5838,7 +5852,7 @@ sub course_level_table {
 	$thiscourse=~s:_:/:g;
 	my %coursedata=&Apache::lonnet::coursedescription($thiscourse);
 	my $area=$coursedata{'description'};
-        my $type=$coursedata{'type'};
+        my $crstype=$coursedata{'type'};
 	if (!defined($area)) { $area=&mt('Unavailable course').': '.$protectedcourse; }
 	my ($domain,$cnum)=split(/\//,$thiscourse);
         my %sections_count;
@@ -5848,9 +5862,9 @@ sub course_level_table {
 		    &Apache::loncommon::get_sections($domain,$cnum);
             }
         }
-        my @roles = &Apache::lonuserutils::roles_by_context('course');
+        my @roles = &Apache::lonuserutils::roles_by_context('course','',$crstype);
 	foreach my $role (@roles) {
-            my $plrole=&Apache::lonnet::plaintext($role,$type);
+            my $plrole=&Apache::lonnet::plaintext($role,$crstype);
 	    if (&Apache::lonnet::allowed('c'.$role,$thiscourse)) {
                 $table .= &course_level_row($protectedcourse,$role,$area,$domain,
                                             $plrole,\%sections_count,\%lt);