<&|/I18N &>TTT.Title

<&|/I18N &>TTT.Text

% for (1 .. 10) { <& .question, id=> $start+$_ &> % } % if ($page > 1 ) { % }
<%once> use HTML::FillInForm; my $count = 10; <%init> my $page = $App->saved_args->{page} || 1; my $start = ($page-1) * $count ; <%def .question> <%args> $id
<&| /I18N &>TTT.Q.<%$id%>
<& /forms/radio.comp, lexkey => "TTT.A.${id}.1", name=>"A.${id}", value=>1 &> <& /forms/radio.comp, lexkey => "TTT.A.${id}.2", name=>"A.${id}", value=>2 &>
%#============================================ <%filter> my $args = $App->session->{ttt}{answers}; $_ = HTML::FillInForm->new->fill(scalarref => \$_, fdat => $args ); %#============================================