--- loncom/html/adm/helper/course.initialization.helper	2003/07/21 14:08:30	1.11
+++ loncom/html/adm/helper/course.initialization.helper	2005/08/01 18:04:09	1.16
@@ -1,18 +1,18 @@
 <helper title="Course Initialization Helper" requiredpriv='opa'>
 
   <exec>
-    my $courseid = $ENV{'request.course.id'};
-    my $crsdom = $ENV{'course.'.$courseid.'.domain'};
-    my $crsnum = $ENV{'course.'.$courseid.'.num'};
+    my $courseid = $env{'request.course.id'};
+    my $crsdom = $env{'course.'.$courseid.'.domain'};
+    my $crsnum = $env{'course.'.$courseid.'.num'};
     $helper->{DATA}->{DOM} = $crsdom;
     $helper->{DATA}->{CRS} = $crsnum;
 
-    $helper->{DATA}->{FIRST_RUN} = $ENV{'course.'.$crsnum.
+    $helper->{DATA}->{FIRST_RUN} = $env{'course.'.$crsnum.
                                         '.course.intialization.not.run'};
     # Delete the 'course.initialization.not.run' course environment
     Apache::lonnet::put('environment', {'course.helper.not.run' => 0}, 
                         $crsdom, $crsnum);
-    Apache::lonnet::coursedescription($ENV{'request.course.id'});
+    Apache::lonnet::coursedescription($env{'request.course.id'});
 
     $helper->{DATA}->{GETVAL} = sub {
         my @resultlist = &Apache::lonnet::get('environment', [shift()], 
@@ -27,7 +27,7 @@
                                  $helper->{DATA}->{DOM},
                                  $helper->{DATA}->{CRS});
             # Try to fix bug 1757
-            Apache::lonnet::coursedescription($ENV{'request.course.id'});
+            Apache::lonnet::coursedescription($env{'request.course.id'});
             return 1;
         } else {
             return 0;
@@ -37,7 +37,7 @@
 
   <state name="START" title="Welcome to Your New LON-CAPA Course">
     <eval>
-      return $helper->{DATA}->{FIRST_RUN} ?
+      return $helper->{DATA}->{FIRST_RUN} ? 
         'This Helper will set up your new LON-CAPA course and choose '.
         'which features will be active. You can '.
         're-visit it later to change settings in your course.' .
@@ -45,8 +45,7 @@
         '<p>If you have previous experience with coordinating LON-CAPA courses and '.
         'prefer not to use the helper, <a href="/adm/menu">click here</a> to leave.'
         :
-        'This helper will set up your LON-CAPA course and choose ' .
-        'which features will be active.';
+        &mt('This helper will set up your LON-CAPA course and choose which features will be active.');
       </eval>
     <message nextstate="COURSE_DESCRIPTION">
       <p>All settings which you can change with this Helper can also be changed
@@ -59,7 +58,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 +76,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}}('plc.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,
@@ -159,9 +200,7 @@
       are both the LON-CAPA username and LON-CAPA domain, not an email
       address.</p> 
       </message>
-    <eval>return '<p>Your current LON-CAPA domain is &quot;<b>' 
-                 . $helper->{DATA}->{DOM} .
-                 '</b>&quot;.</p>';
+    <eval>return &mt('<p>Your current LON-CAPA domain is &quot;<b>[_1]</b>&quot;.</p>',"$helper->{DATA}->{DOM}"); 
       </eval>
     <string variable='feedback_addresses' size='60' >
       <defaultvalue>
@@ -202,6 +241,12 @@
       <p>Remember that all of these settings can be modified in the <b>PARMS</b>
          screen, by pushing the <b>Course Environment</b> button.</p>
       </message>
+    <condition>
+      <clause>$env{'course.'.$env{'request.course.id'}.'.clonedfrom'}</clause>
+      <message>After you select <b>Finish Course Initialization</b>,
+               you will be taken to the Parameter Overview screen to
+               update the dates for this cloned course.</message>
+    </condition>
     <final restartCourse='1' />
     </state>
   </helper>