Line # Revision Author
1 8 ahitrov@rambler.ru <input <% $prop->{readonly} ? 'readonly ' : '' %>type="text" name="<% $name %>" size="10" value="<% html_escape($val) %>" style="width:25%;font-family:arial;font-size:9pt;">
2 <%args>
3 $name => undef
4 $check => undef
5 $prop => {}
6 </%args>
7 <%init>
8 my $val = $prop->{format} ? sprintf($prop->{format}, $check) : $check;
9 </%init>