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 <h2><% ref $document ? $document->name : $section->name %></h2>
21
22
23 % if ( ref $document ) {
24 % my $video = $document->get_image('file');
25 % if ( ref $video && exists $video->{filename} ) {
26 % if ( $video->{ext} eq 'avi' || $document->attype eq 'avi' ) {
27 <div style="padding:10px 20px;">
28 <OBJECT id=NSPlay codeBase=http://www.microsoft.com/netshow/download/en/nsasfinf.cab#Version=2,0,0,912
29 classid=CLSID:22d6f312-b0f6-11d0-94ab-0080c74c7e95 width="480" height="404" VIEWASTEXT>
30 <PARAM NAME="ControlType" VALUE="0">
31 <PARAM NAME="filename" VALUE="<% $video->{filename} %>">
32 <PARAM NAME="AutoStart" VALUE="false">
33 <PARAM NAME="AnimationStart" VALUE="true">
34 <PARAM NAME="TransparentAtStart" VALUE="false">
35 <PARAM NAME="AutoRewind" VALUE="false">
36 <PARAM NAME="ShowControls" VALUE="true">
37 <!--NETSCAPE PLUG-IN STARTS HERE--><embed type="video/x-ms-asf-plugin" src="videos/bg_small.avi"
38 pluginspage="http://www.microsoft.com/windows/mediaplayer/download/default.asp"
39 controltype="1" autostart="false" transparentatstart="false"
40 animationatstart="true" autorewind="false" width="480" height="404"
41 filename="<% $video->{filename} %>" animationstart="true" showcontrols="true"></embed>
42 </OBJECT>
43 </div>
44 % }
45 % }
46 % }
47
48
49 <!--/Information-->
50 </td></tr>
51 </table>
52
53
54
55 % ### Футер
56 % ##############################################
57 % if ( $m->comp_exists ("/comps/$prj/footer.msn") ) {
58 <& "/comps/$prj/footer.msn" &>
59 % } else {
60 <& "/comps/footer.msn" &>
61 % }
62 % ### /Футер
63 <%args>
64
65 $p => 1
66 $id => undef
67
68 </%args>
69 <%init>
70
71 my $prj = $request->{project};
72 my $profile = $request->{project_profile};
73 my $root = $request->{project_section};
74 &abort404 if $id && $id !~ /^\d+$/;
75
76 my $document;
77 my ($section) = $keeper->get_sections (
78 s => $root->id,
79 class => 'promosuite::MultimediaSection',
80 alias => 'video',
81 limit => 1,
82 status => 1,
83 );
84 if ( ref $section ) {
85 ($document) = $keeper->get_documents (
86 s => $section->id,
87 class => 'promosuite::Multimedia',
88 status => 1,
89 limit => 1,
90 );
91 }
92 </%init>