--- loncom/debugging_tools/make_slots.pl	2005/06/04 08:17:32	1.4
+++ loncom/debugging_tools/make_slots.pl	2005/08/09 07:34:52	1.5
@@ -30,11 +30,11 @@ Optional:
   maxspace - integer (number of people that can schedule this space)
              (if unspecfied no limit is used)
   symb - arrayref of symbs that can be scheduled to be done in this slot
-
+  uniqueperiod - if the user has a reservation that has a uniqueperiod
+                 that overlaps this don't allow them to schedule this
+                 slot
 Possibly Need: (but not yet supported)
-  uniqperiod - if the user has a reservation that has a uniqpersion
-               that overlaps this dn't allow them to schedule this
-               reservation
+  secret - arrary ref of words that are the secret for this slot
 
 
 =cut
@@ -65,8 +65,8 @@ $db{'slot3'}=
 	'starttime' => &UnixDate("Aug 30th 00:00:00 2004","%s"),
 	'endtime'   => &UnixDate("Aug 30th 00:00:00 2006","%s"),
         'endtime'   => &UnixDate("Aug 30th 00:00:00 2004","%s"),
-	'ip'        => "1.2.3.4",
-	'ip'        => "*albertelli.com",
+	#'ip'        => "1.2.3.4",
+	#'ip'        => "*albertelli.com",
 	'proctor'   => 'testuser@annarbor',
     });
 $db{'slot4'}=
@@ -76,31 +76,36 @@ $db{'slot4'}=
 	'starttime' => &UnixDate("Aug 30th 00:00:00 2004","%s"),
 	'endtime'   => &UnixDate("Aug 30th 00:00:00 2006","%s"),
 	'endtime'   => &UnixDate("Aug 30th 00:00:00 2004","%s"),
-	'ip'        => "*albertelli.com",
+	#'ip'        => "*albertelli.com",
 	'proctor'   => 'testuser@annarbor',
     });
 $db{'slot5'}=
     &freeze_escape({
 	'type'      => 'schedulable_student',
-	'description' => undef,#'Aug 30th 4 P.M., Room 123 Kedzie',
+	'description' => 'Aug 30th 4 P.M., Room 123 Kedzie',
 	'startreserve' => &UnixDate("Aug 29th 00:00:00 2004","%s"),
-	#'starttime' => &UnixDate("Aug 30th 00:00:00 2004","%s"),
+	'starttime' => &UnixDate("Aug 30th 00:00:00 2004","%s"),
 	'starttime' => &UnixDate("Aug 30th 00:00:00 2006","%s"),
-	'endtime'   => &UnixDate("Aug 30th 00:00:00 2006","%s"),
+	'endtime' => &UnixDate("Aug 30th 00:00:00 2006","%s"),
+	#'endtime'   => &UnixDate("Aug 30th 00:00:00 2006","%s"),
 	#'endtime'   => &UnixDate("Aug 30th 00:00:00 2004","%s"),
-	'ip'        => "*albertelli.com",
+	#'ip'        => "*albertelli.com,"
 	'proctor'   => 'testuser@annarbor',
+	'uniqueperiod' => [&UnixDate("Aug 30th 00:00:00 2004","%s"),
+			   &UnixDate("Aug 30th 00:00:00 2005","%s")],
     });
 $db{'slot6'}=
     &freeze_escape({
 	'type'      => 'schedulable_student',
 	'description' => 'Aug 31th 4 P.M., Room 222 Computer Center',
 	'startreserve' => &UnixDate("Aug 29th 00:00:00 2004","%s"),
-	'starttime' => &UnixDate("Aug 30th 00:00:00 2004","%s"),
+	'starttime' => &UnixDate("Aug 30th 00:00:00 2006","%s"),
 	'endtime'   => &UnixDate("Aug 30th 00:00:00 2006","%s"),
 	#'endtime'   => &UnixDate("Aug 30th 00:00:00 2004","%s"),
-	'ip'        => "*albertelli.com",
+	#'ip'        => "*albertelli.com",
 	'proctor'   => 'testuser@annarbor',
+	'uniqueperiod' => [&UnixDate("Aug 1st 00:00:00 2005","%s"),
+			   &UnixDate("Aug 30th 00:00:00 2006","%s")],
     });
 
 sub freeze_escape {