[LON-CAPA-cvs] cvs: loncom /interface slotrequest.pm

[albertel]

albertel		Tue Mar 21 11:03:19 2006 EDT

  Modified files:              
    /loncom/interface	slotrequest.pm 
  Log:
  - check the startresrve time
  
  
Index: loncom/interface/slotrequest.pm
diff -u loncom/interface/slotrequest.pm:1.52 loncom/interface/slotrequest.pm:1.53
--- loncom/interface/slotrequest.pm:1.52	Wed Mar 15 14:41:26 2006
+++ loncom/interface/slotrequest.pm	Tue Mar 21 11:03:19 2006
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler for requesting to have slots added to a students record
 #
-# $Id: slotrequest.pm,v 1.52 2006/03/15 19:41:26 albertel Exp $
+# $Id: slotrequest.pm,v 1.53 2006/03/21 16:03:19 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -548,6 +548,12 @@
     }
     &Apache::lonxml::debug("$slot_name type good");
 
+    # reserve time not yet started
+    if ($slot->{'startreserve'} > time) {
+	return 0;
+    }
+    &Apache::lonxml::debug("$slot_name reserve good");
+
     my $userallowed=0;
     # its for a different set of users
     if (defined($slot->{'allowedsections'})) {