--- loncom/homework/lonhomework.pm	2005/03/17 21:20:23	1.199
+++ loncom/homework/lonhomework.pm	2005/03/17 21:56:04	1.200
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # The LON-CAPA Homework handler
 #
-# $Id: lonhomework.pm,v 1.199 2005/03/17 21:20:23 albertel Exp $
+# $Id: lonhomework.pm,v 1.200 2005/03/17 21:56:04 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -162,8 +162,11 @@ sub send_footer {
     $request->print(&Apache::lontexconvert::footer());
 }
 
-$Apache::lonxml::browse='';
+sub proctor_checked_in {
+    return 0;
+}
 
+$Apache::lonxml::browse='';
 sub check_ip_acc {
     my ($acc)=@_;
     if (!defined($acc) || $acc =~ /^\s*$/) { return 1; }
@@ -211,8 +214,39 @@ sub check_ip_acc {
 }
 
 sub check_task_access {
-    return &check_access;
+    #does it pass normal muster
+    my ($status,$datemsg)=&check_access;
+    if ($status eq 'SHOW_ANSWER' ||
+	$status eq 'CLOSED' ||
+	$status eq 'CANNOT_ANSWER' ||
+	$status eq 'INVALID_ACCESS' ||
+	$status eq 'UNAVAILABLE') {
+	return ($status,$datemsg);
+    }
+
+    
+    my ($id)=@_;
+    my @slots=split(':',&Apache::lonnet::EXT("resource.$id.available"));
+#    if (!@slots) {
+#	return ($status,$datemsg);
+#    }
+    my $slotstatus='NOT_IN_A_SLOT';
+    foreach my $slot (@slots) {
+	my %slot=&Apache::lonnet::get_slot($slot);
+	if ($slot{'starttime'} < time &&
+	    $slot{'endtime'} > time &&
+	    &check_ip_access($slot{'ip'})) {
+	    $slotstatus='IN_A_SLOT';
+	    last;
+	}
+    }
+    if ($slotstatus eq 'IN_A_SLOT' &&
+	&proctor_checked_in()) {
+	$slotstatus='CAN_ANSWER';
+    }
+    return ($slotstatus,$datemsg);
 }
+
 # JB, 9/24/2002: Any changes in this function may require a change
 # in lonnavmaps::resource::getDateStatus.
 sub check_access {