Repository List / Contenido / utf8 / samples / promosuite / comps / www / diaton / index.html @ HEAD

% 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 ( $document->name ) {
<h2><% $document->name %></h2>
%	}
%	if ( $document->body ) {
<% $document->body %>
%	}

% ### Список новостей
% #######################################################
%       if ( $m->comp_exists ("/comps/$prj/news_list.msn") ) {
<& "/comps/$prj/block_news.msn" &>
%       } else {
<& "/comps/block_news.msn" &>
%       }

% ### Остальной текст
% #######################################################
%	if ( $document->abstr ) {
<& /inc/text_format.msn, doc => $document, field => 'abstr' &>
%	}


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



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

        $p      => 1
        $id     => undef

</%args>
<%init>

  my $prj = $request->{project};
  my $profile = $request->{project_profile};
  my $root = $request->{project_section};
  &abort404     if $id && $id !~ /^\d+$/;

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


</%init>