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


<table width="100%" cellpadding="0" cellspacing="0" border="0">
<tr valign="top"><td style="padding:0 32px 0 18px;" width="1%" nowrap>
<!--Menus-->
% if ( $m->comp_exists ("/comps/$prj/left.msn") ) {
<& "/comps/$prj/left.msn" &>
% }
<!--/Menus-->
</td>

<td width="1%"><img src="/i/<% $prj %>/diaton_device.png" width="84" height="334" alt="DIATON tonometer"></td>
<td style="padding:0 30px 20px;" width="98%">
<!--Information-->

% if ( ref $document ) {
<h2><% $document->name %></h2>
% }

%	if ( $ok ) {
<p class="std">The order is sent successfully.</p>
%	} else {
<script type="text/javascript">
<!--
function check_order ( oForm ) {
    oForm.setfill.value = 'Отправить';
    return true;
}
//-->
</script>

<p class="std">To place the order please fill in the following application form:</p>

<form action="./order.html" method="post" onsubmit="return check_order(this)">
<table width="100%" cellpadding="0" cellspacing="1" style="border:1px solid gray;">
<tr valign="top"><td width="50%" style="padding:1px 0 0 3px">Number of the devices <font color="red">*</font>
</td><td width="50%"><input type="text" name="devnum" class="plain" value="<% $ARGS{devnum} %>">
</td></tr>
<tr><td bgcolor="gray" colspan="2"><div style="height:1px"><spacer type="block" height="1"></div></td></tr>
<tr valign="top"><td style="padding:1px 0 0 3px">The name of the company, country <font color="red">*</font>
</td><td><input type="text" name="company" class="plain">
</td></tr>
<tr><td bgcolor="gray" colspan="2"><div style="height:1px"><spacer type="block" height="1"></div></td></tr>
<tr valign="top"><td style="padding:1px 0 0 3px">The contact person authorized to sign the contract <font color="red">*</font>
</td><td><input type="text" name="contact" class="plain">
</td></tr>
<tr><td bgcolor="gray" colspan="2"><div style="height:1px"><spacer type="block" height="1"></div></td></tr>
<tr valign="top"><td style="padding:1px 0 0 3px">The company's banking details <font color="red">*</font>
</td><td><textarea name="bank"></textarea>
</td></tr>
<tr><td bgcolor="gray" colspan="2"><div style="height:1px"><spacer type="block" height="1"></div></td></tr>
<tr valign="top"><td style="padding:1px 0 0 3px">The juridical address <font color="red">*</font>
</td><td><textarea name="address"></textarea>
</td></tr>
<tr><td bgcolor="gray" colspan="2"><div style="height:1px"><spacer type="block" height="1"></div></td></tr>
<tr valign="top"><td style="padding:1px 0 0 3px">The address of delivery <font color="red">*</font>
</td><td><textarea name="postaddress"></textarea>
</td></tr>
<tr><td bgcolor="gray" colspan="2"><div style="height:1px"><spacer type="block" height="1"></div></td></tr>
<tr valign="top"><td style="padding:1px 0 0 3px">Phone, fax numbers <font color="red">*</font>
</td><td><input type="text" name="phone" class="plain">
</td></tr>
<tr><td bgcolor="gray" colspan="2"><div style="height:1px"><spacer type="block" height="1"></div></td></tr>
<tr valign="top"><td style="padding:1px 0 0 3px">The way of delivery: DHL, etc.
</td><td><input type="text" name="delivery" class="plain">
</td></tr>
<tr><td bgcolor="gray" colspan="2"><div style="height:1px"><spacer type="block" height="1"></div></td></tr>
<tr valign="top"><td style="padding:1px 0 0 3px">The conditions of delivery according to Incomers 2000
</td><td><input type="text" name="devcond" class="plain">
</td></tr>
<tr><td bgcolor="gray" colspan="2"><div style="height:1px"><spacer type="block" height="1"></div></td></tr>
<tr valign="top"><td style="padding:1px 0 2px 3px">The conditions of payment:
</td><td style="padding:1px 0 2px 3px">
<input type="hidden" name="payment" class="plain" value="100% prepayment">100% prepayment <font color="red">**</font>
</td></tr>
<tr><td bgcolor="gray" colspan="2"><div style="height:1px"><spacer type="block" height="1"></div></td></tr>
<tr valign="top"><td style="padding:1px 0 0 3px">Additional information: the necessity of the Certificate of Origin, insurance, etc.
</td><td><textarea name="comments"></textarea>
</td></tr>
<tr><td bgcolor="gray" colspan="2"><div style="height:1px"><spacer type="block" height="1"></div></td></tr>
<tr valign="top"><td>
</td><td align="right" style="padding:3px;">
<input type="hidden" name="setfill" value="">
<input type="submit" name="submit" value="Submit form" class="submit">
</td></tr>
</table>
<p class="rem"><font color="red">*</font> These are required fields.<br>
<font color="red">**</font> By sending this form you confirm the conditions of payment.
</p>
%	}

<div style="height:5px"><spacer type="block" height="5"></div>

% if ( ref $document ) {
<% $document->body %>
% }

<!--/Information-->
</td></tr>
</table>



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

	$setfill	=> undef
	$ok	=> undef

</%args>
<%init>

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

  my ($document) = $keeper->get_documents (
		s	=> $root->id,
		class	=> 'promosuite::Article',
		alias	=> 'order',
		limit	=> 1,
		status	=> 1,
	);

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

	foreach my $key ( qw( devnum company contact bank address postaddress phone delivery devcond payment comments ) ) {
		$ARGS{$key} = Convert::Cyrillic::cstocs($CP, 'UTF8', $ARGS{$key});
	}

	if ( $ARGS{company} && $ARGS{contact} && $ARGS{phone} ) {
		my $sendmail = {
			to      => 'Marketing <'.$project->params->{mail_to}.'>',
			from    => 'Diaton Bot <'.$project->params->{mail_from}.'>',
			subject => "DIATON-TONOMETER - Order",
			body    => $m->scomp('/comps/'.$prj.'/letters/order.msn', %ARGS),
		};
		$m->comp('/subs/sendmail.msn', email => $sendmail);
		$m->redirect('?ok=1');
	}

  }

</%init>