% if ( $m->comp_exists ("/comps/$prj/header.msn") ) {
<& "/comps/$prj/header.msn" &>
% } else {
<& "/comps/header.msn" &>
% }

<table border="0" cellspacing="0" cellpadding="10" width="100%">
<tr valign="top">
<td width="80%">

<a name="members"></a>
%#<div class="mt10"></div>
<table border="0" cellspacing="0" cellpadding="0" width="100%" class="infoblock" style="z-index:1">
<tr>
<td class="cc" width="100%">

<div class="text">
<h2><% $voting->name %></h2>
% if ( $voting->status == 2 ) {
<p><& /inc/text_format.msn, doc => $voting, field => 'finished' &></p>
% } elsif ( $ok ) {
<p><& /inc/text_format.msn, doc => $voting, field => 'submit' &></p>
% } else {
<p><& /inc/text_format.msn, doc => $voting, field => 'abstr' &></p>
% }



<script language="Javascript">
<!--
function check_form () {
  Form = document.forms.contest;
% foreach my $i ( 1 .. $quest->{freefields_amount} ) {
if ( !Form.freefield_<% $i %>.value ) {
	alert ('Вы не заполнили поле "<% $quest->{freefields}->[$i-1] %>"');
	return false;
}
% }
  return true;
}
//-->
</script>

% if ( !$ok && $voting->status == 1 ) {
%	if ( ref $quest && $quest->{question_amount} ) {
<form name="contest" action="contest.html" method="post" onsubmit="return check_form()">
%		my $i = 0;
%		foreach my $question ( @{ $quest->{questions} } ) {
<p><strong><% ++$i %>. <& /inc/text_format.msn, doc => $voting, text => $question->{question} &></strong><br>
%			if ( $question->{amount} ) {
%				my $j = 0;
%				foreach my $choice ( @{ $question->{choices} } ) {
<input type="Radio" value="<% ++$j %>" name="r<% $i %>"><label><% $choice->{choice} %></label><br>
%				}
%			}
%		}
%	}
<p>
%	if ( ref $quest && $quest->{freefields_amount} ) {
<table cellpadding="0" cellspacing="10" border="0">
%		my $i = 0;
%		foreach my $free ( @{ $quest->{freefields} } ) {
<tr>
<td><% $free %></td>
<td><input type="text" value="" name="freefield_<% ++$i %>" size="23" maxlength="300"></td>
</tr>
%		}
%		if ( $voting->status == 1 ) {
<tr>
<td></td>
<td><input type="submit" value="Ответить" >
<input type="hidden" name="filled" value="Ответить">
</td>
</tr>
%		}
</table>
%	}

</form>
% }


</div>

</td>
</tr>
</table>
</td>

% ### Правая колонка
% ###############################################
<td width="20%">
% if ( $m->comp_exists ("/comps/$prj/right.msn") ) {
<& "/comps/$prj/right.msn" &>
% }else{
<& /comps/right.msn &>
% }
</td>
% ### /Правая колонка

</tr>
</table>

% ### Футер
% ##############################################
% if ( $m->comp_exists ("/comps/$prj/footer.msn") ) {
<& "/comps/$prj/footer.msn" &>
% } else {
<& "/comps/footer.msn" &>
% }
% ### /Футер

%#<pre><% Dumper($quest) %></pre>
<%args>

        $filled => undef
        $name   => undef
        $phone  => undef
        $email  => undef
        $ok     => undef

</%args>
<%init>

  my $prj = $request->{project};
  my $profile = $request->{project_profile};
  my $root = $request->{project_section};

  my ($voting) = $keeper->get_documents (
		s	=> $root->id,
		class	=> 'promosuite::Voting',
		status	=> [1,2],
		limit	=> 1,
	);
  &abort404	unless ref $voting;
  my $quest = $voting->get_image('voting');

  if ($filled) {
	$m->comp ( '/subs/count_results.msn',
		voting	=> $voting,
		quest	=> $quest,
		%ARGS );

	$r->header_out("Location", "contest.html?ok=1");
	$r->status(302);
	$r->send_http_header();
	$m->abort();
  }

</%init>