--- loncom/interface/lonviewclasslist.pm	2014/10/26 15:20:25	1.16
+++ loncom/interface/lonviewclasslist.pm	2023/09/26 19:11:02	1.19
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to display the classlist 
 #
-# $Id: lonviewclasslist.pm,v 1.16 2014/10/26 15:20:25 raeburn Exp $
+# $Id: lonviewclasslist.pm,v 1.19 2023/09/26 19:11:02 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -103,7 +103,7 @@ ENDHEADER
                                     classlists => $rosterprefs,
                                 };
                     $changes{'classlists'} = {};
-                    &Apache::courseprefs::process_changes($cdom,'classlists',\%values,
+                    &Apache::courseprefs::process_changes($cdom,$cnum,'classlists',\%values,
                                                           $rosterprefs,
                                                           $changes{'classlists'},
                                                           $allitems,\%disallowed,$crstype);
@@ -136,7 +136,7 @@ ENDHEADER
                    $current->{$setting} = $env{"course.$env{'request.course.id'}.$setting"};
                }
                my ($output,$rowtotal) =
-                   &Apache::courseprefs::print_config_box($r,$cdom,'display',
+                   &Apache::courseprefs::print_config_box($r,$cdom,$cnum,'display',
                                                           'viewableroster',
                                                           $rosterprefs,$current,
                                                           $allitems,$crstype);
@@ -270,7 +270,7 @@ sub html_classlist {
     }
 
     if ($env{'form.action'} eq 'setenv') {
-        $Str .= &process_student_prefs();
+        $Str .= &process_student_prefs($crstype);
     }
 
     $Str .= '<h2>'.$heading.'</h2>';
@@ -293,11 +293,13 @@ sub html_classlist {
     } else {
         $title = &mt($titleplural.' in any section');
         $listtype = 'in the course';
+        if ($crstype eq 'Community') {
+            $listtype = 'in the community';
+        }
     }
-
     if ($viewsettings->{'student_opt_in'}) {
         if ($env{'request.role'} =~ /^st/)  {
-            $Str .= &print_roster_form();
+            $Str .= &print_roster_form($crstype);
         }
         %publicroster = &Apache::lonnet::dump('publicroster',$cdom,$cnum);
     }
@@ -428,6 +430,7 @@ sub html_classlist {
 }
 
 sub print_roster_form {
+    my ($crstype) = @_;
     my $cid = $env{'request.course.id'};
     my $showinroster = $env{'environment.internal.'.$cid.'.showinroster'};
     my ($showoff,$showon);
@@ -438,13 +441,17 @@ sub print_roster_form {
         $showoff = ' checked="checked" ';
         $showon = ' ';
     }
+    my $singular = 'student';
+    if ($crstype eq 'Community') {
+        $singular = 'member';
+    }
     my $output =
         '<div class="LC_left_float">'
        .'<fieldset><legend>'.&mt('Your roster setting').'</legend>';
     if ($showinroster) {
-        $output .= &mt('You are currently listed in the student-viewable roster.');
+        $output .= &mt("You are currently listed in the $singular-viewable roster.");
     } else {
-        $output .=  &mt('You are currently [_1]not[_2] listed in the student-viewable roster.','<b>','</b>');
+        $output .=  &mt("You are currently [_1]not[_2] listed in the $singular-viewable roster.",'<b>','</b>');
     }
     $output .= '<br />'.&mt('Include yourself in the roster?').'&nbsp;&nbsp;'.
         '<form name="studentparm" method="post" action="">'.
@@ -458,6 +465,7 @@ sub print_roster_form {
 }
 
 sub process_student_prefs {
+    my ($crstype) = @_;
     my $cid = $env{'request.course.id'};
     my $cdom = $env{'course.'.$cid.'.domain'};
     my $cnum = $env{'course.'.$cid.'.num'};
@@ -474,6 +482,11 @@ sub process_student_prefs {
     if ($pubroster{$student}) {
         $sturoster = 1;
     }
+
+    my $singular = 'student';
+    if ($crstype eq 'Community') {
+        $singular = 'member';
+    }
     my $output;
     if ($sturoster ne $showinroster) {
         my %changeHash = (
@@ -487,7 +500,7 @@ sub process_student_prefs {
             if ($result eq 'ok') {
                 $output .=
                     &Apache::lonhtmlcommon::confirm_success(
-                        &mt('Display of your name in the student-viewable roster set to [_1].','<b>'.$visibility.'</b>'));
+                        &mt("Display of your name in the $singular-viewable roster set to [_1].",'<b>'.$visibility.'</b>'));
             } else {
                 $output .=
                     &Apache::lonhtmlcommon::confirm_success(
@@ -501,7 +514,7 @@ sub process_student_prefs {
     } else {
         $output .=
             &Apache::lonhtmlcommon::confirm_success(
-                &mt('Display of your name in the student-viewable roster unchanged (set to [_1]).','<b>'.$visibility.'</b>'));
+                &mt("Display of your name in the $singular-viewable roster unchanged (set to [_1]).",'<b>'.$visibility.'</b>'));
     }
     $output = &Apache::loncommon::confirmwrapper($output);
     return $output;