--- loncom/html/adm/helper/course.initialization.helper	2005/04/07 06:56:22	1.15
+++ loncom/html/adm/helper/course.initialization.helper	2009/02/24 18:20:58	1.24
@@ -57,9 +57,9 @@
       </message>
     </state>
 
-  <state name="COURSE_DESCRIPTION" title="Course Description">
+  <state name="COURSE_DESCRIPTION" title="Course Title">
     <message nextstate="FORBID_CHAT">
-      The &quot;Course Description&quot; is the name of the course that will be
+      The &quot;Course Title&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 />
       </message>
@@ -76,10 +76,10 @@
       </string>
     </state>
 
-  <state name="FORBID_CHAT" title="Chat Participation">
+  <state name="FORBID_CHAT" title="Chat Room 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
+      <p>LON-CAPA has chat room 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'>
@@ -87,7 +87,7 @@
       <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');
+        my $denied = &{$helper->{DATA}->{GETVAL}}('plc.roles.denied');
         $denied =~ s/,/\|\|\|/g;
         return $denied;
       </defaultvalue>
@@ -105,10 +105,10 @@
                 $denied =~ s/,([^,]*)$/, and\1/;
             }
             if ($denied) {
-                $denied = substr($denied, 1) . ' not allowed to participate in discussion.';
+                $denied = substr($denied, 1) . ' not allowed to participate in live chatroom.';
                 $denied = ucfirst($denied);
             } else {
-                $denied = 'Everyone can participate in discussion.';
+                $denied = 'Everyone can participate in live chatroom.';
             }
             return $denied;
         } else {
@@ -192,12 +192,12 @@
     </state>
 
   <state name="FEEDBACK_ADDRESSES" title="Feedback Addresses for Course Content">
-    <message nextstate="FINAL">
+    <message nextstate="USERS_ALLOWED_TO_CLONE">
       Course members can provide feedback about the course. You can choose
       who will receive the feedback, such as a different instructor or a
       TA. Please enter their LON-CAPA address below, in the
       form <b>user:domain</b>, where &quot;user&quot; and &quot;domain&quot;
-      are both the LON-CAPA username and LON-CAPA domain, not an email
+      are both the LON-CAPA username and LON-CAPA domain, not an e-mail
       address.</p> 
       </message>
     <eval>return &mt('<p>Your current LON-CAPA domain is &quot;<b>[_1]</b>&quot;.</p>',"$helper->{DATA}->{DOM}"); 
@@ -233,6 +233,84 @@
       </message>
     </state>
 
+  <state name="USERS_ALLOWED_TO_CLONE" title="Granting permission to clone course">
+   <message nextstate="FINAL"> 
+      Existing courses can be cloned when creating new courses.<br />Cloning will copy the course structure, contents, and most parameters (automatically advancing any date parameters by six months).<br /><br />
+      Names of owners of other courses permitted to clone this course:<br />
+   </message>
+   <string variable='can_clone' size='60' >
+    <defaultvalue>
+     return &{$helper->{DATA}->{GETVAL}}('cloners');
+    </defaultvalue>
+    <validator>
+      my ($output,@cloners,%disallowed);
+      my $match_dom = $LONCAPA::match_domain;
+      my $match_uname = $LONCAPA::match_username; 
+      if ($val =~ /,/) {
+          @cloners = split(/,/,$val);
+      } else {
+          $cloners[0] = $val;
+      }
+      foreach my $item (@cloners) {
+	  next if ($item =~ /^\s*$/);
+	  next if ($item eq '*');
+       
+	  my ($clname,$cldom) = split(/:/,$item);
+	  if ($clname eq '*') {
+	      if ($cldom =~ /^$match_dom$/) {
+		  if (!&Apache::lonnet::domain($cldom)) {
+		      $disallowed{'domain'} .= $item.',';
+		  }
+	      } else {
+		  $disallowed{'format'} .= $item.',';
+	      }
+	  } elsif ($item !~/^($match_uname)\:($match_dom)$/) {
+	      $disallowed{'format'} .= $item.',';
+	  } else {
+	      if (!&Apache::lonnet::domain($cldom)) {
+		  $disallowed{'domain'} .= $item.','; 
+	      } elsif (&Apache::lonnet::homeserver($clname,$cldom) eq 'no_host') {
+		  $disallowed{'newuser'} .= $item.',';
+	      }
+	  }
+      }
+      foreach my $key (keys(%disallowed)) {
+          $disallowed{$key} =~ s/,$//;
+      }
+      if (keys(%disallowed) > 0) {
+          $output.= 'Your input contained the following errors:<ul>';
+          if (defined($disallowed{'format'})) {
+              $output  .= '<li>Invalid format: '.
+                          '<b>'.$disallowed{'format'}.'</b></li>';
+          }
+          if (defined($disallowed{'domain'})) {
+              $output .= '<li>Domain(s) do(es) not exist: '.
+                          '<b>'.$disallowed{'domain'}.'</b></li>';
+          }
+          if (defined($disallowed{'newuser'})) {
+              $output .= '<li>LON-CAPA user(s) do(es) not exist: '.
+                         '<b>'.$disallowed{'newuser'}.'</b></li>';
+          }
+          $output .= '</ul>';
+      }
+      return $output;
+    </validator>
+    <finalcode>
+     if (&{$helper->{DATA}->{SETVAL}}('cloners', $element->getValue())) {
+
+
+       return 'Users allowed to clone course updated to <b>' . $element->getValue() .
+                 '</b>.';
+     }
+    </finalcode>
+   </string>
+   <message>
+    <br />(Course Coordinators automatically have the right to clone their own courses.)
+    <ul>
+     <li>Format: <b>user:domain</b>, where &quot;user&quot; and &quot;domain&quot;
+      are the LON-CAPA username and domain of the user.</li><li>Separate different users with a comma.</li><li>Use *:domain to allow course to be cloned by any course owner in the specified domain.</li><li>Use * to allow unrestricted cloning by all course owners in all domains.</li></ul>
+   </message>
+  </state>
   <state name="FINAL" title="Completed">
     <message>Your course is now set up. Please select the <b>Finish Course 
       Initialization</b> button to re-intialize the course with your chosen