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>

Небольшая справка по веткам

cnddist – контейнер, в котором хранятся все дистрибутивы всех библиотек и программных пакетов, которые использовались при построении различных версий Contenido. Если какой-то библиотеки в данном хранилище нет, инсталлятор сделает попытку "подтянуть" ее с веба (например, с CPAN). Если библиотека слишком старая, есть очень большая вероятность, что ее там уже нет. Поэтому мы храним весь хлам от всех сборок. Если какой-то дистрибутив вдруг отсутствует в cnddist - напишите нам, мы положим его туда.

koi8 – отмирающая ветка, чей код, выдача и все внутренние библиотеки заточены на кодировку KOI8-R. Вносятся только те дополнения, которые касаются внешнего вида и функционала админки, баги ядра, обязательные обновления портов и мелочи, которые легко скопипастить. В дальнейшем планируется полная остановка поддержки по данной ветке.

utf8 – актуальная ветка, заточенная под UTF-8.

Внутри каждой ветки: core – исходники ядра; install – скрипт установки инсталляции; plugins – плагины; samples – "готовые к употреблению" проекты, которые можно поставить, запустить и посмотреть, как они работают.