Repository List / Contenido / utf8 / samples / promosuite / comps / www / developers / feedback.html @ HEAD

% if ( $m->comp_exists ("/comps/$prj/header.msn") ) {
<& "/comps/$prj/header.msn", alias => 'main' &>
% } else {
<& "/comps/header_rambler.msn", alias => 'main' &>
% }

<table class="r--main">
<tr>
<td class="dev--left-10"><div class="dev--left-10"><!-- --></div></td>
<td class="dev--left-menu r--vtop">
<div class="dev--left-menu"><!-- --></div>

<& "/comps/$prj/menus.msn", s => $s, id => $id &>

</td>
<td class="dev--left-25"><div class="dev--left-25"><!-- --></div></td>
<td class="r--vtop r--normal">

<div id="mailform" onmouseover="javascript:showObject(mailform)">
<h2 class="mb10 mt10">Обратная связь</h2>

% unless ( $ok ) {
<script type="text/javascript">
<!--
function check_fields ( oForm ) {
  return true;
  if (!oForm.name.value) {
	alert ('Необходимо указать имя');
	return false;
  }
  if (!oForm.lastname.value) {
	alert ('Необходимо указать фамилию');
	return false;
  }
  var email = oForm.email.value;
  if ( !email ) {
	alert ('Необходимо указать электронный адрес');
	return false;
  }
  if ( email.indexOf('@') == -1 || email.indexOf('.') == -1 ) {
	alert ('Указан неверный электронный адрес');
	return false;
  }
  if (!oForm.question.value) {
	alert ('Необходимо заполнить поле вопроса');
	return false;
  }
  return false;
}
//-->
</script>

<div class="error">
%	if ( $errstr ) {
<% $errstr %>
%	}
</div>

<u class=uTop><i class=uLft><!-- --></i><i class=uRgt><!-- --></i></u>
<div id="feedbackcontainer" class="grayBg">


<& "/comps/$prj/feedback_form.msn", id => $id, %ARGS &>

</div>
<u class="uBtm"><i class="uLft"><!-- --></i><i class="uRgt"><!-- --></i></u>
<div class="mt30"></div>
</div>


% } else {
<a href="./">Принято!</a>
% }

<div class="dev--content"><!-- --></div>

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


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

	$filled	=> undef
	$s	=> undef
	$id	=> undef
	$ok	=> undef

</%args>
<%init>

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

  my $errstr;
  my ($document, $section);

  my $CP = 'UTF8';
  if ( $filled ) {
	$CP = 'ISO'		if Convert::Cyrillic::cstocs('ISO', 'UTF8', $filled) eq 'Отправить';
	$CP = 'KOI8'		if Convert::Cyrillic::cstocs('KOI8', 'UTF8', $filled) eq 'Отправить';
	$CP = 'WIN'		if Convert::Cyrillic::cstocs('WIN', 'UTF8', $filled) eq 'Отправить';

	$errstr = $m->comp ( '/subs/'.$prj.'/feedback_send.msn', CP => $CP, %ARGS );
	$m->redirect ('./feedback.html?ok=1')		unless $errstr;
  }

</%init>