[LON-CAPA-cvs] cvs: loncom /debugging_tools make_slots.pl

[albertel]

albertel		Sat Jun  4 04:17:33 2005 EDT

  Modified files:              
    /loncom/debugging_tools	make_slots.pl 
  Log:
  - adding the startreserve attribute
  
  
Index: loncom/debugging_tools/make_slots.pl
diff -u loncom/debugging_tools/make_slots.pl:1.3 loncom/debugging_tools/make_slots.pl:1.4
--- loncom/debugging_tools/make_slots.pl:1.3	Tue May 31 17:35:51 2005
+++ loncom/debugging_tools/make_slots.pl	Sat Jun  4 04:17:32 2005
@@ -16,10 +16,10 @@
 Required:
   starttime - unix time that a slot start
   endtime - unix time that a slot ends
-  
+  startreserve - unix time that a slot can start being reserved
 
 Optional:
-  type - either 'preassigned' or 'scheduleable_student'
+  type - either 'preassigned' or 'schedulable_student'
          (controls whether slotrequest.pm will allow one to select it)
   ip - comma seperated list of ip address or wildcard ranges or
        wilcard hostnames, or [] style range of allowable client IP
@@ -29,9 +29,9 @@
                 this slot
   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
 
 Possibly Need: (but not yet supported)
-  symb - arrayref of symbs that can be scheduled to be done in this slot
   uniqperiod - if the user has a reservation that has a uniqpersion
                that overlaps this dn't allow them to schedule this
                reservation
@@ -42,6 +42,7 @@
 $db{'slot1'}=
     &freeze_escape({
 	'type'      => 'preassigned',
+	'startreserve' => &UnixDate("Aug 30th 00:00:00 2004","%s"),
 	'starttime' => &UnixDate("Aug 30th 00:00:00 2004","%s"),
 	'endtime'   => &UnixDate("Aug 30th 01:00:00 2004","%s"),
 	'ip'        => "*albertelli.com",
@@ -50,6 +51,7 @@
 $db{'slot2'}=
     &freeze_escape({
 	'type'      => 'preassigned',
+	'startreserve' => &UnixDate("Aug 30th 00:00:00 2006","%s"),
 	'starttime' => &UnixDate("Aug 30th 00:00:00 2006","%s"),
 	'endtime'   => &UnixDate("Aug 30th 00:00:00 2006","%s"),
 	'ip'        => "*albertelli.com",
@@ -59,6 +61,7 @@
     &freeze_escape({
 	'type'      => 'preassigned',
 	'description' => 'slot3',
+	'startreserve' => &UnixDate("Aug 29th 00:00:00 2004","%s"),
 	'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"),
@@ -69,6 +72,7 @@
 $db{'slot4'}=
     &freeze_escape({
 	'type'      => 'preassigned',
+	'startreserve' => &UnixDate("Aug 29th 00:00:00 2004","%s"),
 	'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"),
@@ -78,10 +82,12 @@
 $db{'slot5'}=
     &freeze_escape({
 	'type'      => 'schedulable_student',
-	'description' => 'Aug 30th 4 P.M., Room 123 Kedzie',
-	'starttime' => &UnixDate("Aug 30th 00:00:00 2004","%s"),
+	'description' => undef,#'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 2006","%s"),
 	'endtime'   => &UnixDate("Aug 30th 00:00:00 2006","%s"),
-	'endtime'   => &UnixDate("Aug 30th 00:00:00 2004","%s"),
+	#'endtime'   => &UnixDate("Aug 30th 00:00:00 2004","%s"),
 	'ip'        => "*albertelli.com",
 	'proctor'   => 'testuser@annarbor',
     });
@@ -89,9 +95,10 @@
     &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"),
 	'endtime'   => &UnixDate("Aug 30th 00:00:00 2006","%s"),
-	'endtime'   => &UnixDate("Aug 30th 00:00:00 2004","%s"),
+	#'endtime'   => &UnixDate("Aug 30th 00:00:00 2004","%s"),
 	'ip'        => "*albertelli.com",
 	'proctor'   => 'testuser@annarbor',
     });