loncom/homework/inputtags.pm - diff

Return to inputtags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.343, 2016/05/30 02:45:32	version 1.345, 2019/03/18 20:18:27
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 1903 sub previous_tries {	Line 1904 sub previous_tries {
my $tries_text = &get_tries_text('link');	my $tries_text = &get_tries_text('link');
my $prefix = $env{'form.request.prefix'};	my $prefix = $env{'form.request.prefix'};
$prefix =~ tr{.}{_};	$prefix =~ tr{.}{_};
my $function_name = "LONCAPA_previous_tries_".$prefix.	my $function_name = 'LONCAPA_previous_tries_'.$prefix;
$Apache::lonxml::curdepth.'_'.$env{'form.counter'};	if (($env{'request.state'} eq 'construct') \|\| ($id =~ /[._]\|[^\w\s\-]/)) {
	$function_name .= $Apache::lonxml::curdepth;
	} else {
	$function_name .= &js_escape($id);
	}
	$function_name .= '_'.$Apache::lonxml::counter;
my $result = &Apache::loncommon::modal_adhoc_window($function_name,420,410,$output,&mt($tries_text))."<br />";	my $result = &Apache::loncommon::modal_adhoc_window($function_name,420,410,$output,&mt($tries_text))."<br />";
return $result;	return $result;
}	}