--- loncom/html/adm/helper/newslot.helper	2005/11/02 22:14:53	1.8
+++ loncom/html/adm/helper/newslot.helper	2005/11/18 16:51:13	1.10
@@ -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; }
@@ -27,18 +29,27 @@
     <message nextstate="OPTIONAL">
       <message_text>
           Name: <br />&nbsp;&nbsp;&nbsp;
-      </message_text>
+      </message_text>  
     </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">
+        <message_text>
+	<p>Changing the Name will create a new slot with the new name, and not rename the existing slot.</p>
+        </message_text>  
+      </message>
+    </condition>
     <message>
       <message_text><br />Start time:<br />&nbsp;&nbsp;&nbsp;</message_text>
     </message>