<&|/I18N &>TTT.Title&>
<&|/I18N &>TTT.Text&>
<%once>
use HTML::FillInForm;
my $count = 10;
%once>
<%init>
my $page = $App->saved_args->{page} || 1;
my $start = ($page-1) * $count ;
%init>
<%def .question>
<%args>
$id
%args>
<&| /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 &>
%def>
%#============================================
<%filter>
my $args = $App->session->{ttt}{answers};
$_ = HTML::FillInForm->new->fill(scalarref => \$_, fdat => $args );
%filter>
%#============================================