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 % if ( ref $document ) {
22 <h2><% $document->name %></h2>
23 <div class="contacts">
24 <% $document->body %>
25 </div>
26 % }
27
28 <!--/Information-->
29 </td></tr>
30 </table>
31
32
33
34 % ### Футер
35 % ##############################################
36 % if ( $m->comp_exists ("/comps/$prj/footer.msn") ) {
37 <& "/comps/$prj/footer.msn" &>
38 % } else {
39 <& "/comps/footer.msn" &>
40 % }
41 % ### /Футер
42 <%args>
43
44
45 </%args>
46 <%init>
47
48 my $prj = $request->{project};
49 my $profile = $request->{project_profile};
50 my $root = $request->{project_section};
51
52 my ($document) = $keeper->get_documents (
53 s => $root->id,
54 class => 'promosuite::Article',
55 alias => 'contacts',
56 limit => 1,
57 status => 1,
58 );
59
60 </%init>