--- loncom/html/adm/helper/newslot.helper	2005/11/02 22:07:52	1.7
+++ loncom/html/adm/helper/newslot.helper	2005/11/18 16:54:01	1.11
@@ -7,6 +7,8 @@
 	  if (exists($env{'form.name'}) ||
 	      $env{'form.name'} =~ /\S/) {
 	      $helper->{'VARS'}{'name'}=$env{'form.name'};
+	      $helper->{VARS}{'origname'}=$env{'form.name'};
+	      $helper->{DATA}{copy} = 1;
 	  }
       }
       $helper->{DATA}{origslot} = sub {
@@ -17,7 +19,7 @@
 	  }
 	  my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
 	  my $cdom  = $env{'course.'.$env{'request.course.id'}.'.domain'};
-	  my $name=$helper->{'VARS'}{'name'};
+	  my $name=$helper->{VARS}{'origname'};
 	  my %slot=&Apache::lonnet::get('slots', [$name], $cdom, $cnum);
 	  if (!ref($slot{$name})) { return $default; }
 	  if (!exists($slot{$name}{$which})) { return $default; }
@@ -25,22 +27,27 @@
       }
     </exec>
     <message nextstate="OPTIONAL">
-      <message_text>
-          Name: <br />&nbsp;&nbsp;&nbsp;
-      </message_text>
+        Name: <br />&nbsp;&nbsp;&nbsp;
     </message>
     <string variable="name" size="30">
       <validator>
           if ($val=~/^\s*$/) { return 'Must specify a name'; }
-          if ($val=~/\s$/) { return 'Must not contain spaces'; }
+          if ($val=~/\s/) { return 'Must not contain spaces'; }
+          if ($val=~/\W/) { return 'Must contain only letters, numbers and _'; }
           return undef;
       </validator>
       <defaultvalue>
         return $helper->{'VARS'}{'name'};
       </defaultvalue>
     </string>
+    <condition>
+      <clause>$helper->{DATA}{copy}</clause>
+      <message nextstate="OPTIONAL">
+	<p>Changing the Name will create a new slot with the new name, and not rename the existing slot.</p>
+      </message>
+    </condition>
     <message>
-      <message_text><br />Start time:<br />&nbsp;&nbsp;&nbsp;</message_text>
+      <br />Start time:<br />&nbsp;&nbsp;&nbsp;
     </message>
     <date variable="starttime" hoursminutes="1">
       <defaultvalue>
@@ -48,7 +55,7 @@
       </defaultvalue>
     </date>
     <message>
-      <message_text><br />End time:<br />&nbsp;&nbsp;&nbsp;</message_text>
+      <br />End time:<br />&nbsp;&nbsp;&nbsp;
     </message>
     <date variable="endtime" hoursminutes="1">
       <defaultvalue>
@@ -56,7 +63,7 @@
       </defaultvalue>
     </date>
     <message>
-      <message_text><br />Type:</message_text>
+      <br />Type:
     </message>
     <choices variable="type">
       <choice computer='preassigned'>Instructor asssignable.</choice>
@@ -69,9 +76,7 @@
 
   <state name="OPTIONAL" title="Specify Optional Attributes">
     <message>
-      <message_text>
-          <p>Description:<br />&nbsp;&nbsp;&nbsp;
-      </message_text>
+        <p>Description:<br />&nbsp;&nbsp;&nbsp;
     </message>
     <string variable="description" size="60">
       <defaultvalue>
@@ -81,9 +86,7 @@
     <condition>
       <clause>$helper->{'VARS'}{'type'} eq 'schedulable_student'</clause>
       <message>
-        <message_text>
-            </p><p>Time students can start reserving:<br />&nbsp;&nbsp;&nbsp;
-        </message_text>
+        </p><p>Time students can start reserving:<br />&nbsp;&nbsp;&nbsp;
       </message>
       <date variable="startreserve" hoursminutes="1" anytime="1">
         <defaultvalue>
@@ -91,9 +94,7 @@
         </defaultvalue>
       </date>
       <message>
-        <message_text>
-            </p><p>Maxium number of students allowed in this slot:<br />&nbsp;&nbsp;&nbsp;
-        </message_text>
+         </p><p>Maxium number of students allowed in this slot:<br />&nbsp;&nbsp;&nbsp;
       </message>
       <string variable="maxspace" size="4">
         <validator>
@@ -105,9 +106,7 @@
         </defaultvalue>
       </string>
       <message>
-        <message_text>
-            </p><p>Period of time in which this slot is can only be uniquely chosen:<br />&nbsp;&nbsp;&nbsp;Start:
-        </message_text>
+         </p><p>Period of time in which this slot is can only be uniquely chosen:<br />&nbsp;&nbsp;&nbsp;Start:
       </message>
       <date variable="startunique" hoursminutes="1" anytime="1">
         <defaultvalue>
@@ -117,7 +116,7 @@
           return 'anytime';
         </defaultvalue>
       </date>
-      <message><message_text><br />&nbsp;&nbsp;&nbsp;End: </message_text></message>
+      <message><br />&nbsp;&nbsp;&nbsp;End: </message>
       <date variable="endunique" hoursminutes="1" anytime="1">
         <defaultvalue>
           my $default=&{$helper->{DATA}{origslot}}('uniqueperiod','anytime');
@@ -137,9 +136,7 @@
       </exec>
     </condition>
     <message>
-      <message_text>
-          </p><p>Secret word proctors use to checkin users:<br />&nbsp;&nbsp;&nbsp;
-      </message_text>
+      </p><p>Secret word proctors use to checkin users:<br />&nbsp;&nbsp;&nbsp;
     </message>
     <string variable="secret" size="12">
       <validator>
@@ -150,9 +147,7 @@
       </defaultvalue>
     </string>
     <message>
-      <message_text>
-          </p><p>Slot is:
-      </message_text>
+      </p><p>Slot is:
     </message>
     <choices variable="restricttosymb">
       <choice nextstate="PROCTOR" computer='any'>usable for any resource.</choice>
@@ -164,9 +159,9 @@
       </defaultvalue>
     </choices>
     <message>
-      <message_text> 
+       
 	</p><p>IP restrictions:<br />&nbsp;&nbsp;&nbsp;
-      </message_text>
+      
     </message>
     <string variable="ip" size="30">
       <validator>
@@ -176,7 +171,7 @@
         return &{$helper->{DATA}{origslot}}('ip');
       </defaultvalue>
     </string>
-    <message> <message_text> </p> </message_text> </message>
+    <message>  </p>  </message>
   </state>
   <state name="RESOURCESELECT" title="Specify Optional Attributes">
     <resource variable="symb">
@@ -203,7 +198,7 @@
     </student>
   </state>
   <state name="FINISH" title="Creating/Modfying Slot">
-	    <message> <message_text> Created Slot </message_text> </message>	
+	    <message> Created Slot  </message>	
     <final>
       <finalcode>
         my $result;
@@ -229,7 +224,9 @@
 		my ($uname,$udomain)=split(/:/,$user);
 		push(@names,"$uname\@$udomain");
 	    }
-	    $slot{'proctor'}=join(',',@names);
+	    # make sure the usenrmaes are unique
+	    my %proctors = map { ($_,1) } @names;
+	    $slot{'proctor'}=join(',',sort(keys(%proctors)));
 	}
         my $cname = $env{'course.'.$env{'request.course.id'}.'.num'};
         my $cdom  = $env{'course.'.$env{'request.course.id'}.'.domain'};