Шаблоны для форм

Постановка задачи

Существуют формы, которые повторяются на различных страницах:

Форма для атрибутов (редактирование профиля, регистрация на олимпиаду)
Форма редактирования основной информации профиля (редактирование профиля, регистрация в тестирующей системе)
Форма управления атрибутами списка пользователей (Список пользователей, выборка пользователей, печать)
...

Хотелось бы иметь возможность создать шаблон формы, а не иметь копию html формы на странице.

Решение

Был написан модуль Form, использующий

HTML::Template
Путь до шаблонов и расширение прописаны в nsuts_new_olymp.cfg в разделе [Templates]

[Templates]
path=__SERVER_DIR__/templates/
ext=.tmpl

Требуется указать SERVER_DIR после установки тестирующей системы (Возможно, это нужно как-то переделать)

Описание

setType – указать тип формы:

Тип	Описание
open	Ставится только <form> без </form>
close	Ставится только </form>
both	Ставится и <form>, и </form>
neither	Не будут установлены <form> и </form>

addRow – добавить элемент на форму в качестве аргументов идут (filter, type иногда можно ставить undef):

name – Название элемента, которое обычно пишется перед элементом формы
id – обычно ставится в атрибут name у input, select и т.д
type – text, password, и т.д
filter – regexp для значения, проверяет после вызова метода check.
comment – комментарий или ошибка, которая обычно где-то пишется

setFormOptions – Установить action, method, name для формы.

setSubmitOptions Установить атрибуты для input submit, берутся ключи из переданного hashи ставится так key = value. Если переданная ссылка на hash=undef, то кнопка submit не устанавливается.

check – проверяет, что значения элементов формы удовлетворяют filter. Если был установлен filter = undef, то фильтр по умолчанию /^.+$/

setTemplate – указать название шаблона, по умолчанию Default Template.

getHTML – возвращает html формы, устанавливает значения из $post/$get для элементов формы. В наследниках можно переопределить и добавлять элементы в hash $self->{_rows} и они будут доступны в шаблоне.

setTitle – установить заголовок формы, доступен в шаблоне по form_

По умолчанию стоит

экранирование переменных шаблона, но его можно отключить указав атрибут escape="no" у tmpl_var в шаблоне.
По умолчанию включен _rows_enable, который позволяет на основе $post/$get устанавливать переданные значения в форму. Его можно отключить, указав значение 0.

В форме доступны переменные form_title, form_attr, form_submit, form_submit_enable, form_open, form_end.

Подробнее в Form.pm, примеры использования – Attribute Form.pm, Registration Form.pm.

Пример шаблона

Default Form.tmpl

<h2><tmpl_var form_title></h2>
<tmpl_if form_open><form <tmpl_var form_attr  escape=none>></tmpl_if>
<table cellpadding=10>
<tmpl_loop name=rows>
<tr>
<td width='20%'><tmpl_var name></td>
<td>
<input name='<tmpl_var id>' type='<tmpl_var type>' value='<tmpl_var value>' style='width:90%'>
<br/><br/>
</td>
<td width='40%'><tmpl_var comment escape=none></td>
</tr>
</tmpl_loop>
</table>
<tmpl_if form_submit_enable><input type="submit" <tmpl_var form_submit  escape=none> /></tmpl_if>
<tmpl_if form_close></form></tmpl_if>

Примечание: У form_submit, form_attr и comment escape=none, т.к там находится что-то вроде form_submit = 'value="Сохранить" name="saveattrs"'. В comment иногда выводится ошибка, а там '<font color=red>...</font>'.

Проблемы