loncom/homework/lonhomework.pm - diff

Return to lonhomework.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.85, 2002/08/07 18:20:29	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;
Line 422 sub get_template_list {	Line 431 sub get_template_list {
push (@allnames, $name);	push (@allnames, $name);
}	}
}	}
if (@allnames) {	if (@allnames && !$result) {
$result="<option>Select a $extension type</option>\n<option>".	$result="<option>Select a $extension type</option>\n<option>".
join('</option><option>',sort(@allnames)).'</option>';	join('</option><option>',sort(@allnames)).'</option>';
}	}