| Line # | Revision | Author | |
|---|---|---|---|
| 1 | 3 | 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> |