Revision 3 (by ahitrov@rambler.ru, 2010/03/24 15:19:32) The CORE
<input <% $prop->{readonly} ? 'readonly ' : '' %>type="text" name="<% $name %>" size="10" value="<% html_escape($val) %>" style="width:25%;font-family:arial;font-size:9pt;">
<%args>
	$name	=> undef
	$check	=> undef
	$prop	=> {}
</%args>
<%init>
    my $val = $prop->{format} ? sprintf($prop->{format}, $check) : $check;
</%init>