Repository List / Contenido / utf8 / samples / promosuite / comps / comps / voting / voting.msn @ r296

<h1><% $voting->name %></h1>
<p><% $voting->abstr %></p>

<form action="./get_vote.html" method="POST">
%	my $num = 0;
%	foreach my $id (1..$question_set->{question_amount})
%	{
%		$num++;
%		my $question = $question_set->{questions}->[$id-1];
%		next unless ($question->{question} && $question->{amount});
%		my $question_name = $question->{question};
%		my $qimg_src;
%		if ( $question_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};
%				$qimg_src = '<a href="/images/'.$img->{filename}.'" rel="lightbox" title=""><img src="/images/'.$mini->{filename}.'" width="'.$mini->{width}.'" height="'.$mini->{height}.'" hspace="5"></a>';
%			}
%			$question_name =~ s/<%\s*\w+_(\d+)\s*%>/$qimg_src/i;
%		}

<h2>\
%#		if ( $qimg_src ) {
%#<% $qimg_src %><br>\
%#		}
%		if ( $question_name ) {
<% $question_name %>\
%		}
</h2>
%		if ($question->{allow_multi}) {
%#			<i>(можно выбрать несколько вариантов ответа)</i>
%		}
%		my $type = "radio";
%		$type = "checkbox" if $question->{allow_multi};
	<div class="eda">
%		if ( $question->{range} ) {
	<table cellspacing="1" cellpadding="3">
	<tr><td></td><% map { '<td align="center">'.$_.'</td>' } (1..10) %></tr>
%		}
%		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 = '<a href="/images/'.$img->{filename}.'" rel="lightbox" title=""><img src="/images/'.$mini->{filename}.'" width="'.$mini->{width}.'" height="'.$mini->{height}.'"></a>';
%				}
%				$choice_name =~ s/<%\s*\w+_(\d+)\s*%>//i;
%			}
%			if ( $img_src && $choice_name ) {
                <% $img_src %><br>
%			}
%			if ( $question->{range} ) {
	<tr valign="top" bgcolor="<% $choice_id % 2 ? '#e0e0e0' : 'white' %>"><td><% $choice_name || $img_src %></td>
%			for ( 1..$question->{range} ) {
	<td><input type="radio" name="question<% $id %>_<% $choice->{id} %>" value="<% $_ %>"></td>\
%			}
	</tr>
%			} else {
		<input type="<% $type %>" name="question<% $id %>" value="<% $choice->{id} %>"><% $choice_name || $img_src %><br>
%			}
%		}
%		if ( $question->{range} ) {
	</table>
%		}
	</div>

%	}

<div class="r--normal edac">

%       foreach my $id (1..$question_set->{freefields_amount}) {

	<div class="t-text"><% $question_set->{freefields}[1-$id] %></div>
	<div class="t-bull"><input type="text" name="freefield<% $id %>" value=""></div>
	<div class="cls"></div>
%       }

	<div><input type="Submit" value=" Отправить " class="btn"></div>
</div>

<input type="hidden" name="vote" value="<% $voting->id %>">
%#<input type="hidden" name="place" value="<% $place %>">
%#<input type="hidden" name="_URL" value="http://<% $state->{httpd_server} %>/result.html?rubric=<% $rubric %>&id=<% $voting->id() %>">

</form>

<%args>

	$voting	=> undef

</%args>
<%init>

  return	unless ref $voting;

  my $question_set=$voting->get_image('voting');
  my $pictures = $voting->get_image('pictures');


</%init>