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.88, 2002/09/16 20:39:39
Line 79 sub get_target {	Line 79 sub get_target {
return ('web');	return ('web');
}	}
} else {	} else {
if ( $ENV{'form.problemmode'} eq 'View' ) {	if ( $ENV{'form.problemmode'} eq 'View' \|\|
	$ENV{'form.problemmode'} eq 'Discard Edits and View') {
if ( defined($ENV{'form.submitted'}) &&	if ( defined($ENV{'form.submitted'}) &&
(!defined($ENV{'form.resetdata'})) ) {	(!defined($ENV{'form.resetdata'})) ) {
return ('grade', 'web','answer');	return ('grade', 'web','answer');
Line 148 sub check_access {	Line 149 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;