<%args> $ses $request <%perl> if ($$ses{'value_errors'}) { $m->print(qq'Let op: u heeft enkele velden niet of niet juist ingevuld.
'); #for (@{${$$ses{'value_errors'}}{'array'}}) { #$m->print('Error: ', $$_{'msg'} , qq'
\n'); #} } <& /comp/html/statstag2, cat => 773 &> <& /comp/edit/element, id => 31 &>

% for my $blockid (Tty::ING::QuestionBlock::Blocks(1)) { <& /comp/html/questionblock, id => $blockid, ses => $ses, request => $request, helppopups => 1, diapositief => 0 &> % }
<& /comp/html/buttonsubmit, img => "verder", value => "Verder" &>