loncom/homework/inputtags.pm - diff

Return to inputtags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.342, 2016/04/06 00:34:12	version 1.344, 2016/12/06 20:51:11
Line 460 sub start_textline {	Line 460 sub start_textline {
}	}
my $name = 'HWVAL_'.$id;	my $name = 'HWVAL_'.$id;
my $itemid = 'HWVAL_'.$partid.'_'.$id;	my $itemid = 'HWVAL_'.$partid.'_'.$id;
	# NOTE: the input id should match the one given by defaut_homework input_id().
my $input_tag_id = $itemid.'_'.$input_id;	my $input_tag_id = $itemid.'_'.$input_id;
if ($Apache::inputtags::status[-1] eq 'CANNOT_ANSWER') {	if ($Apache::inputtags::status[-1] eq 'CANNOT_ANSWER') {
$name = "none";	$name = "none";
Line 1333 sub decideoutput {	Line 1334 sub decideoutput {
my $first_access=&Apache::lonnet::get_first_access($interval[1]);	my $first_access=&Apache::lonnet::get_first_access($interval[1]);
if (defined($first_access)) {	if (defined($first_access)) {
my $due_date= &Apache::lonnet::EXT("resource.$part.duedate");	my $due_date= &Apache::lonnet::EXT("resource.$part.duedate");
unless (($due_date) && ($due_date < $first_access + $interval[0])) {	my ($timelimit) = ($interval[0] =~ /^(\d+)/);
	unless (($due_date) && ($due_date < $first_access + $timelimit)) {
$message = &mt("Answer Submitted: Your final submission will be graded when the time limit is reached.");	$message = &mt("Answer Submitted: Your final submission will be graded when the time limit is reached.");
}	}
}	}