--- loncom/interface/loncreateuser.pm 2009/10/31 14:27:48 1.321
+++ loncom/interface/loncreateuser.pm 2009/11/04 14:13:32 1.323
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Create a user
#
-# $Id: loncreateuser.pm,v 1.321 2009/10/31 14:27:48 raeburn Exp $
+# $Id: loncreateuser.pm,v 1.323 2009/11/04 14:13:32 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -4365,6 +4365,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();
@@ -4726,8 +4727,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)) {
@@ -5908,7 +5913,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 .= ' '.
'';
my $courseform=''.&Apache::loncommon::selectcourse_link
- ('cu','dccourse','dcdomain','coursedesc',undef,undef,'Course').'';
- my $cb_jscript = &Apache::loncommon::coursebrowser_javascript($dcdom,'currsec','cu','role');
+ ('cu','dccourse','dcdomain','coursedesc',undef,undef,'Course/Community','crstype').'';
+ my $cb_jscript = &Apache::loncommon::coursebrowser_javascript($dcdom,'currsec','cu','role','Course/Community Browser');
my %lt=&Apache::lonlocal::texthash(
'rol' => "Role",
'grs' => "Section",
@@ -5968,14 +5973,14 @@ sub course_level_dc {
'ssd' => "Set Start Date",
'sed' => "Set End Date"
);
- my $header = ''.&mt('Course Level').''.
+ my $header = ''.&mt('Course/Community Level').''.
&Apache::loncommon::start_data_table().
&Apache::loncommon::start_data_table_header_row().
' | '.$courseform.' | '.$lt{'rol'}.' | '.$lt{'grs'}.' | '.$lt{'sta'}.' | '.$lt{'end'}.' | '.
&Apache::loncommon::end_data_table_header_row();
my $otheritems = &Apache::loncommon::start_data_table_row()."\n".
- ' | '."\n".
- ' | ';
$otheritems .= <
+
$lt{'ssd'} |
-
+ |
$lt{'sed'} |
ENDTIMEENTRY