Line # Revision Author
1 296 ahitrov % if ( $m->comp_exists ("/comps/$prj/header.msn") ) {
2 <& "/comps/$prj/header.msn", alias => 'main' &>
3 % } else {
4 <& "/comps/header.msn", alias => 'main' &>
5 % }
6
7
8 <table width="100%" cellpadding="0" cellspacing="0" border="0">
9 <tr valign="top"><td style="padding:0 32px 0 18px;" width="1%" nowrap>
10 <!--Menus-->
11 % if ( $m->comp_exists ("/comps/$prj/left.msn") ) {
12 <& "/comps/$prj/left.msn" &>
13 % }
14 <!--/Menus-->
15 </td>
16
17 <td width="1%"><img src="/i/<% $prj %>/diaton_device.png" width="84" height="334" alt="DIATON tonometer"></td>
18 <td style="padding:0 30px 20px;" width="98%">
19 <!--Information-->
20
21
22 % ### Аннотация
23 % #######################################################
24 % if ( $document->name ) {
25 <h2><% $document->name %></h2>
26 % }
27 % if ( $document->body ) {
28 <% $document->body %>
29 % }
30
31 % ### Список новостей
32 % #######################################################
33 % if ( $m->comp_exists ("/comps/$prj/news_list.msn") ) {
34 <& "/comps/$prj/block_news.msn" &>
35 % } else {
36 <& "/comps/block_news.msn" &>
37 % }
38
39 % ### Остальной текст
40 % #######################################################
41 % if ( $document->abstr ) {
42 <& /inc/text_format.msn, doc => $document, field => 'abstr' &>
43 % }
44
45
46 <!--/Information-->
47 </td></tr>
48 </table>
49
50
51
52 % ### Футер
53 % ##############################################
54 % if ( $m->comp_exists ("/comps/$prj/footer.msn") ) {
55 <& "/comps/$prj/footer.msn" &>
56 % } else {
57 <& "/comps/footer.msn" &>
58 % }
59 % ### /Футер
60 <%args>
61
62 $p => 1
63 $id => undef
64
65 </%args>
66 <%init>
67
68 my $prj = $request->{project};
69 my $profile = $request->{project_profile};
70 my $root = $request->{project_section};
71 &abort404 if $id && $id !~ /^\d+$/;
72
73 my ($document) = $keeper->get_documents (
74 s => $root->id,
75 class => 'promosuite::Article',
76 alias => 'main',
77 limit => 1,
78 );
79
80
81 </%init>