<% $voting->name %>

% if ( $question->{range} ) { <% map { '' } (1..10) %> % } % my @random; % if ( ref $question->{choices} eq 'ARRAY' ) { % my $i = 1; % map { $_->{id} = $i++; } @{ $question->{choices} }; % @random = grep { $_->{random} } @{ $question->{choices} }; % } % foreach my $choice_id (1..$question->{amount}) { % my $choice; % if ( $question->{choices}->[$choice_id-1]->{random} ) { % ($choice) = splice(@random, int(rand(scalar @random)), 1); % } else { % $choice = $question->{choices}->[$choice_id-1]; % } % my $choice_name = $choice->{choice}; % my $img_src; % if ( $choice_name =~ /<%\s*\w+_(\d+)\s*%>/i ) { % my $index = $1; % if ( ref $pictures && exists $pictures->{"image_$index"} ) { % my $img = $pictures->{"image_$index"}; % my $mini = $pictures->{"image_$index"}{mini}; % $img_src = ''; % } % $choice_name =~ s/<%\s*\w+_(\d+)\s*%>//i; % } % if ( $img_src && $choice_name ) { <% $img_src %>
% } % if ( $question->{range} ) { % for ( 1..$question->{range} ) { \ % } % } else { <% $choice_name || $img_src %>
% } % } % if ( $question->{range} ) {

	'.$_.'
<% $choice_name || $img_src %>

% }