[LON-CAPA-cvs] cvs: loncom /interface courseprefs.pm

[raeburn]

raeburn		Tue Jan  7 16:19:19 2025 EDT

  Modified files:              
    /loncom/interface	courseprefs.pm 
  Log:
  - Bug 5917. Course preference to disable anonymous posts to discussion.
  
  
Index: loncom/interface/courseprefs.pm
diff -u loncom/interface/courseprefs.pm:1.132 loncom/interface/courseprefs.pm:1.133
--- loncom/interface/courseprefs.pm:1.132	Fri Dec 20 00:24:38 2024
+++ loncom/interface/courseprefs.pm	Tue Jan  7 16:19:19 2025
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set configuration settings for a course
 #
-# $Id: courseprefs.pm,v 1.132 2024/12/20 00:24:38 raeburn Exp $
+# $Id: courseprefs.pm,v 1.133 2025/01/07 16:19:19 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2735,14 +2735,14 @@
                                             $displayname = &mt('Recipients of '.$text.' questions');
                                         }
                                     } elsif ($item eq 'discussion') {
-                                        if ($key =~ /^p(lc|ch)\.roles\.denied/) {
+                                        if ($key =~ /^p(lc|ch|ac)\.roles\.denied/) {
                                             $displayname = &mt("$text (role-based)");
                                             if ($displayval ne '') {
                                                 my @roles = split(',',$displayval);
                                                 @roles = map { &Apache::lonnet::plaintext($_); } @roles;
                                                 $displayval = join(', ', at roles);
                                             } 
-                                        } elsif ($key =~ /^p(lc|ch)\.users\.denied/) {
+                                        } elsif ($key =~ /^p(lc|ch|ac)\.users\.denied/) {
                                             $displayname = &mt("$text (specific user(s))");
                                         } else {
                                             if ($key eq 'allow_discussion_post_editing') {