loncom/homework/lonhomework.pm - diff

Return to lonhomework.pm CVS log

Up to [LON-CAPA] / loncom / homework

-version 1.176, 2004/05/26 22:45:57
+version 1.177, 2004/05/27 22:25:16
  Line 292  sub check_access {
  	    $status = 'CANNOT_ANSWER';
  	}
      }
+     if ($status eq 'CAN_ANSWER') {
+ 	my $interval=&Apache::lonnet::EXT("resource.$id.interval");
+ 	&Apache::lonxml::debug("looking for interval $interval");
+ 	if ($interval) {
+ 	    my $first_access=&Apache::lonnet::get_first_access('map');
+ 	    &Apache::lonxml::debug("looking for accesstime $first_access");
+ 	    if (!$first_access) {
+ 		$status='NOT_YET_VIEWED';
+ 		$datemsg=' '.$interval.' seconds';
+ 	    } else {
+ 		my $newdate=localtime($first_access+$interval);
+ 		if (time > ($first_access+$interval)) {
+ 		    $status='CLOSED';
+ 		    $datemsg = &mt("was due on")." $newdate".&mt(", and answers will be available on")." $date";
+ 		} else {
+ 		    $datemsg = &mt("is due at")." $newdate";
+ 		}
+ 	    }
+ 	}
+     }
    #if (($status ne 'CLOSED') && ($Apache::lonhomework::type eq 'exam') &&
    #    (!$Apache::lonhomework::history{"resource.0.outtoken"})) {
    #    return ('UNCHECKEDOUT','needs to be checked out');