[BACK]Return to make_slots.pl CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / debugging_tools

Diff for /loncom/debugging_tools/make_slots.pl between versions 1.4 and 1.5

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

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>