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

[albertel]

albertel		Mon Mar 28 16:51:22 2005 EDT

  Modified files:              
    /loncom/debugging_tools	make_slots.pl 
  Log:
  - added protor field to slots
  
  
Index: loncom/debugging_tools/make_slots.pl
diff -u loncom/debugging_tools/make_slots.pl:1.1 loncom/debugging_tools/make_slots.pl:1.2
--- loncom/debugging_tools/make_slots.pl:1.1	Mon Mar 21 13:53:51 2005
+++ loncom/debugging_tools/make_slots.pl	Mon Mar 28 16:51:21 2005
@@ -13,24 +13,28 @@
 	'starttime' => &UnixDate("Aug 30th 00:00:00 2004","%s"),
 	'endtime'   => &UnixDate("Aug 30th 01:00:00 2004","%s"),
 	'ip'        => "*albertelli.com",
+	'proctor'   => 'testuser@annarbor',
     });
 $db{'slot2'}=
     &freeze_escape({
 	'starttime' => &UnixDate("Aug 30th 00:00:00 2006","%s"),
 	'endtime'   => &UnixDate("Aug 30th 00:00:00 2006","%s"),
 	'ip'        => "*albertelli.com",
+	'proctor'   => 'testuser@annarbor',
     });
 $db{'slot3'}=
     &freeze_escape({
 	'starttime' => &UnixDate("Aug 30th 00:00:00 2004","%s"),
 	'endtime'   => &UnixDate("Aug 30th 00:00:00 2006","%s"),
 	'ip'        => "1.2.3.4",
+	'proctor'   => 'testuser@annarbor',
     });
 $db{'slot4'}=
     &freeze_escape({
 	'starttime' => &UnixDate("Aug 30th 00:00:00 2004","%s"),
 	'endtime'   => &UnixDate("Aug 30th 00:00:00 2006","%s"),
 	'ip'        => "*albertelli.com",
+	'proctor'   => 'testuser@annarbor',
     });
 
 sub freeze_escape {