--- loncom/interface/loncreateuser.pm 2010/01/19 20:49:41 1.295.2.21 +++ loncom/interface/loncreateuser.pm 2010/01/19 20:52:24 1.295.2.22 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Create a user # -# $Id: loncreateuser.pm,v 1.295.2.21 2010/01/19 20:49:41 raeburn Exp $ +# $Id: loncreateuser.pm,v 1.295.2.22 2010/01/19 20:52:24 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -4271,6 +4271,7 @@ sub restore_prev_selections { sub print_selfenroll_menu { my ($r,$context,$permission) = @_; + my $crstype = &Apache::loncommon::course_type(); my $formname = 'enrollstudent'; my $nolink = 1; my ($row,$lt) = &get_selfenroll_titles(); @@ -4634,8 +4635,12 @@ ENDSCRIPT &mt('No').''; my %advhash = &Apache::lonnet::get_course_adv_roles($cid,1); my (@ccs,%notified); - if ($advhash{'cc'}) { - @ccs = split(/,/,$advhash{'cc'}); + my $ccrole = 'cc'; + if ($crstype eq 'Community') { + $ccrole = 'co'; + } + if ($advhash{$ccrole}) { + @ccs = split(/,/,$advhash{$ccrole}); } if ($currnotified) { foreach my $current (split(/,/,$currnotified)) { @@ -5760,7 +5765,7 @@ sub course_level_row { $protectedcourse.'_'.$role.'" />'."\n". ' '.$plrole.''."\n". ' '.$area.'
Domain: '.$domain.''."\n"; - if ($role eq 'cc') { + if (($role eq 'cc') || ($role eq 'co')) { $row .= ' '; } elsif ($env{'request.course.sec'} ne '') { $row .= '