loncom/homework/response.pm - diff

Return to response.pm CVS log

Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/response.pm between versions 1.234 and 1.236

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

version 1.234, 2013/12/28 23:16:02	version 1.236, 2014/08/28 14:41:18
Line 399 sub end_dataresponse {	Line 399 sub end_dataresponse {
$Apache::lonhomework::results{"resource.$partid.$id.awarddetail"}='SUBMITTED';	$Apache::lonhomework::results{"resource.$partid.$id.awarddetail"}='SUBMITTED';
}	}
} else {	} else {
$result='Not Permitted to change values.'	$result=&mt('Not Permitted to change values');
}	}
}	}
}	}
Line 863 sub answer_header {	Line 863 sub answer_header {
if ($Apache::lonhomework::type eq 'exam') {	if ($Apache::lonhomework::type eq 'exam') {
$bit = ($Apache::lonxml::counter+$increment).') ';	$bit = ($Apache::lonxml::counter+$increment).') ';
} else {	} else {
$bit .= ' Answer for Part: \verb\|'.	$bit .= ' '.&mt('Answer for Part: [_1]',
$Apache::inputtags::part.'\| ';	'\verb\|'.$Apache::inputtags::part.'\|').' ';
}	}
push(@answer_bits,$bit);	push(@answer_bits,$bit);
} else {	} else {
Line 1379 sub check_status {	Line 1379 sub check_status {
if (!defined($id)) { $id=$Apache::inputtags::part; }	if (!defined($id)) { $id=$Apache::inputtags::part; }
my $curtime=&Apache::lonnet::EXT('system.time');	my $curtime=&Apache::lonnet::EXT('system.time');
my $opendate=&Apache::lonnet::EXT("resource.$id.opendate");	my $opendate=&Apache::lonnet::EXT("resource.$id.opendate");
my $duedate=&Apache::lonnet::EXT("resource.$id.duedate");	my $duedate=&Apache::lonhomework::due_date($id);
my $answerdate=&Apache::lonnet::EXT("resource.$id.answerdate");	my $answerdate=&Apache::lonnet::EXT("resource.$id.answerdate");
if ( $opendate && $curtime > $opendate &&	if ( $opendate && $curtime > $opendate &&
$duedate && $curtime > $duedate &&	$duedate && $curtime > $duedate &&

Removed from v.1.234
changed lines
	Added in v.1.236