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 <!--/Information-->
25 </td></tr>
26 </table>
27
28
29
30 % ### Футер
31 % ##############################################
32 % if ( $m->comp_exists ("/comps/$prj/footer.msn") ) {
33 <& "/comps/$prj/footer.msn" &>
34 % } else {
35 <& "/comps/footer.msn" &>
36 % }
37 % ### /Футер
38 <%args>
39
40 $p => 1
41 $id => undef
42
43 </%args>
44 <%init>
45
46 my $prj = $request->{project};
47 my $profile = $request->{project_profile};
48 my $root = $request->{project_section};
49 &abort404 if $id && $id !~ /^\d+$/;
50
51 my $document;
52 my ($section) = $keeper->get_sections (
53 s => $root->id,
54 class => 'promosuite::AnnoSection',
55 limit => 1,
56 status => 1,
57 );
58 if ( $id && ref $section ) {
59 $document = $keeper->get_document_by_id ($id,
60 s => $section->id,
61 class => 'promosuite::Anons',
62 status => 1,
63 );
64 }
65 </%init>