--- loncom/html/adm/helper/course.initialization.helper	2003/07/21 14:08:30	1.11
+++ loncom/html/adm/helper/course.initialization.helper	2003/07/24 17:53:59	1.12
@@ -59,7 +59,7 @@
     </state>
 
   <state name="COURSE_DESCRIPTION" title="Course Description">
-    <message nextstate="FORBID_DISCUSSION">
+    <message nextstate="FORBID_CHAT">
       The &quot;Course Description&quot; is the name of the course that will be
       seen by the students.  You may now modify the description and hit 
       <nobr>&quot;<b>Next -&gt;</b>&quot;</nobr> to continue.<br />
@@ -77,6 +77,48 @@
       </string>
     </state>
 
+  <state name="FORBID_CHAT" title="Chat Participation">
+    <message nextstate="FORBID_DISCUSSION">
+      <p>LON-CAPA has live chat functionality.  This course will receive
+         its own chat room.  You may deny students, TAs, or instructors
+         the right to access the chat room.</p>
+      </message>
+    <choices variable="BANNED_CHAT_ROLES" multichoice="1" allowempty='1'>
+      <choice computer="st"><b>Students</b> - students will not be able to use or view the chat room.</choice>
+      <choice computer="ta"><b>Teaching Assistants</b> - teaching assistants will not be able use or view the chat room</choice>
+      <choice computer="in"><b>Instructor</b> - instructors will not be able to use or view the chat room</choice>
+      <defaultvalue>
+        my $denied = &{$helper->{DATA}->{GETVAL}}('plch.roles.denied');
+        $denied =~ s/,/\|\|\|/g;
+        return $denied;
+      </defaultvalue>
+      <finalcode>
+        my $denied = $element->getValue();
+        $denied =~ s/\|\|\|/,/g;
+        if (&{$helper->{DATA}->{SETVAL}}('plc.roles.denied', $denied)) {
+            $denied =~ s/st/ students/;
+            $denied =~ s/in/ instructors/;
+            $denied =~ s/ta/ teaching assistants/;
+            $denied =~ s/ep/ exam proctors/;
+            if ($denied =~ /^[^,]*,[^,]*$/) { # only one comma
+                $denied =~ s/,/ and/g;
+            } else { # add "and" to last comma
+                $denied =~ s/,([^,]*)$/, and\1/;
+            }
+            if ($denied) {
+                $denied = substr($denied, 1) . ' not allowed to participate in discussion.';
+                $denied = ucfirst($denied);
+            } else {
+                $denied = 'Everyone can participate in discussion.';
+            }
+            return $denied;
+        } else {
+            return '';
+        }
+      </finalcode>
+      </choices>
+    </state>
+
   <state name="FORBID_DISCUSSION" title="Discussion Participation">
     <message nextstate="DISCUSSION_HTML">
          LON-CAPA hosts discussions on all resources in a course. By default,