loncom/homework/lonhomework.pm - diff

Return to lonhomework.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.86, 2002/08/16 21:30:08	version 1.87, 2002/09/07 18:21:44
Line 148 sub check_access {	Line 148 sub check_access {
foreach $temp ("opendate","duedate","answerdate") {	foreach $temp ("opendate","duedate","answerdate") {
$lastdate = $date;	$lastdate = $date;
$date = &Apache::lonnet::EXT("resource.$id.$temp");	$date = &Apache::lonnet::EXT("resource.$id.$temp");
	my $thistype = &Apache::lonnet::EXT("resource.$id.$temp.type");
	if ($thistype eq 'date_interval') {
	if ($temp eq 'opendate') {
	$date=&Apache::lonnet::EXT("resource.$id.duedate")-$date;
	}
	if ($temp eq 'answerdate') {
	$date=&Apache::lonnet::EXT("resource.$id.duedate")+$date;
	}
	}
&Apache::lonxml::debug("found :$date: for :$temp:");	&Apache::lonxml::debug("found :$date: for :$temp:");
if ($date eq '') {	if ($date eq '') {
$date = "an unknown date"; $passed = 0;	$date = "an unknown date"; $passed = 0;