--- loncom/html/adm/helper/newslot.helper	2017/01/20 06:23:37	1.34
+++ loncom/html/adm/helper/newslot.helper	2023/07/07 03:52:41	1.36
@@ -208,11 +208,34 @@
         delete($helper->{'VARS'}{'startreserve'});
         delete($helper->{'VARS'}{'endreserve'});
         delete($helper->{'VARS'}{'maxspace'});
-        delete($helper->{'VARS'}{'startunique'});
-        delete($helper->{'VARS'}{'endunique'});
       </exec>
+      <message>
+         </p><p>Period of time when this slot can only be uniquely assigned:<br />&nbsp;&nbsp;&nbsp;Start:
+      </message>
+      <date variable="startunique" hoursminutes="1" anytime="1">
+        <defaultvalue>
+          my $default=&{$helper->{DATA}{origslot}}('uniqueperiod','anytime');
+          if ($default eq 'anytime') { return 'anytime' };
+          if (ref($default)) { return $default->[0]; }
+          return 'anytime';
+        </defaultvalue>
+      </date>
+      <message><br />&nbsp;&nbsp;&nbsp;End: </message>
+      <date variable="endunique" hoursminutes="1" anytime="1">
+        <defaultvalue>
+          my $default=&{$helper->{DATA}{origslot}}('uniqueperiod','anytime');
+          if ($default eq 'anytime') { return 'anytime' };
+          if (ref($default)) { return $default->[1]; }
+          return 'anytime';
+        </defaultvalue>
+        <validator>
+           if (defined($val) && $val < $helper->{'VARS'}{'startunique'}) {
+               return 'End time must be later than the start time.';
+           }
+           return undef;
+        </validator>
+      </date>
     </condition>
-
     <message>
       </p><p>Proctored access:
     </message>
@@ -315,8 +338,8 @@
     <nextstate>PROCTOR</nextstate>
 
     <resource variable="symb" multichoice="1">
-      <filterfunc>return $res->is_map() || $res->is_problem()</filterfunc>
-      <choicefunc>return $res->is_problem()</choicefunc>
+      <filterfunc>return $res->is_map() || $res->is_problem() || $res->is_tool()</filterfunc>
+      <choicefunc>return $res->is_problem() || || $res->is_tool()</choicefunc>
       <valuefunc>return $res->symb()</valuefunc>
       <defaultvalue>
         my @defaults;