Всего проголосовало:

Кол-во вопросов:

% foreach my $question_id (0..($set->{question_amount}-1)) { % my $prefix =$name.'_question'.$question_id.'_'; % my $question_data=$set->{questions}->[$question_id];

Вопрос номер <% $question_id+1 %>: <& text.msn, name => $prefix.'question', check => $question_data->{question}, prop=>{rows=>2} &>
Кол-во вариантов ответа:
Шкалирование ответов (от 1 до ...):
Возможность множественного выбора: {allow_multi} ? 'checked':'' %>> %#
Шкалирование ответа: {scale_answer} ? 'checked':'' %>> % if ($question_data->{amount}) { % foreach my $answer_id (0..($question_data->{amount}-1)) { % my $inner_prefix=$prefix.'answer'.$answer_id.'_'; % my $answer_data =$question_data->{choices}->[$answer_id]; %}
N ответаRandomТекст или ID картинки в формате <% pictures_N %>Всего за
<% $answer_id+1 %> {random} ? ' checked' : '' %>>
%}

%}

Кол-во свободных полей:

% foreach my $freefield_id (0..($set->{freefields_amount}-1)) { % my $prefix =$name.'_freefield'; % my $question_data=$set->{freefields}->[$freefield_id]; % }
N поляТекст
<% $freefield_id+1 %>
PS: Внимание поддержка многих features из видимых в этой форме остается на template формы и template результатов. И не гарантируется на шаблонах по умолчанию или старых шаблонах. %#
%#<% Data::Dumper::Dumper($set) %>
%#
<%args> $name => undef $check => undef <%init> use vars qw($VAR1); my $set={}; if ($check) { eval ($check); if ($@) { warn "cannot eval $name with value '$check'"; } else { $set=$VAR1; } }