Revision 296 (by ahitrov, 2013/03/26 17:59:01)
Promosite (anthill) project source
% if ( $m->comp_exists ("/comps/$prj/header.msn") ) {
<& "/comps/$prj/header.msn" &>
% } else {
<& "/comps/header.msn" &>
% }
% ### контент
<table cellspacing="0" cellpadding="0" width="100%" border="0">
<tr><td width="4%"><div style="width: 10px; height: 1px"><spacer height="1" width="10" type="block"></div></td>
<td width="92%" valign="top" style="padding-top:11px;">
<div style="padding:14px 15px; width:890px;" class="hdr"><a href="./news.html"><% $section->name %></a></div>
% if ( $id && ref $document ) {
% if ( $m->comp_exists ("/comps/$prj/article.msn") ) {
<& "/comps/$prj/article.msn", doc => $document, show_header => 1, show_dtime => 1 &>
% } else {
<& "/comps/article.msn", doc => $document, show_header => 1, show_dtime => 1 &>
% }
% } else {
% if ( ref $document && $p == 1 ) {
% my $img = $document->get_image ('picture');
% my $date = Contenido::DateTime::new ( postgres => $document->dtime );
% my ($a1, $a2) = $document->url ? ('<a href="http://www.rambler.ru/click?from=market_'.$prj.'&_URL='.$document->url.'" target="_blank">','</a>') : ('','');
<!-- 001 -->
<table width="100%" border="0" cellspacing="0" cellpadding="0" style="margin-bottom:15px;">
<tr valign="top">
% if ( ref $img && exists $img->{filename} ) {
<td style="padding:0px 10px;"><a href="?id=<% $document->id %>"><img
src="<% $img->{filename} %>" width="<% $img->{width} %>" height="<% $img->{height} %>"
style="margin-bottom:10px;border:0;" alt="<% $img->{alt} |h %>"></a></td>
% }
<td width="100%">
<div style="padding:10px 15px;" class="hdr"><a href="?id=<% $document->id %>"><% $document->name %></a></div>
<div class="news" style="padding-bottom: 15px;"><% $date->dmy('.') %> <% $date->hour %>:<% $date->min %>\
% if ( $document->source ) {
| <% $a1.$document->source.$a2 %>\
% }
</div>
<div class="news" style="width: 650px;"><a href="?id=<% $document->id %>" style="color:#FFFFFF;"><% $document->abstr %></a></div>
</td></tr>
</table>
% }
% }
% if ( ref $documents) {
% if ( $id && ref $document ) {
<div style="background:#333333;padding:10px 15px;" class="hdr">Другие новости</div>
% }
% my ($wday, $wcount) = (0,0);
<div style="width: 890px;">
% foreach my $doc (@$documents) {
% next if ref $document && $doc->id == $document->id;
% my $date = Contenido::DateTime->new( postgres => $doc->dtime );
% my $dw = $date->wday;
% if ($dw != $wday && !$id) {
% $wday = $dw;
</div>
<div style="background:#333333;padding:10px 15px;" class="hdr"><% $date->day %> <% Encode::encode('utf-8', $date->month_name) %> <% $date->year %></div>
<div style="width: 890px;">
% }
<div class="plan"><b><% ($id ? $date->dmy('.') : '').sprintf(" %02d:%02d",$date->hour,$date->min) %></b>
<a href="?id=<% $doc->id %>"><% $doc->name %></a></div>
% }
</div>
% if ( $id && ref $document ) {
<div style="padding-top: 10px; padding-left:15px;" class="txt"><a href="./news.html"><b>Все новости »</b></a></div>
% } elsif ( !$id && $total > $size ) {
<div class="photo-l" style="padding-bottom:20px; padding-left: 15px;">Страницы:
%#<& /inc/pages_.msn, p => $p, total => $total, n => $size, delimiter => ' ' &>
</div>
% }
% }
</td>
<td width="4%"><div style="width: 10px; height: 1px"><spacer height="1" width="10" type="block"></div></td>
</tr>
</table>
% ### Футер
% ##############################################
% if ( $m->comp_exists ("/comps/$prj/footer.msn") ) {
<& "/comps/$prj/footer.msn" &>
% } else {
<& "/comps/footer.msn" &>
% }
% ### /Футер
<%args>
$p => 1
$id => undef
</%args>
<%init>
my $prj = $request->{project};
my $profile = $request->{project_profile};
my $root = $request->{project_section};
&abort404 if $id && $id !~ /^\d+$/;
my $size = 20;
my $total;
my ($documents, $document);
my ($section) = $keeper->get_sections (
s => $root->id,
class => 'promosuite::NewsSection',
limit => 1,
status => 1,
);
if ( $id && ref $section ) {
$document = $keeper->get_document_by_id ($id,
s => $section->id,
# class => 'promosuite::Article',
class => 'promosuite::News',
status => [1,2],
);
$documents = $keeper->get_documents (
s => $section->id,
# class => 'promosuite::Article',
class => 'promosuite::News',
status => [1,2],
limit => 5,
order => ['date', 'direct'],
ref $document ? ( excludes => [$document->id] ) : (),
return_mode => 'array_ref',
);
} else {
($document) = $keeper->get_documents (
s => $section->id,
# class => 'promosuite::Article',
class => 'promosuite::News',
status => 2,
order => ['date', 'direct'],
limit => 1,
) if $p == 1;
$documents = $keeper->get_documents (
s => $section->id,
# class => 'promosuite::Article',
class => 'promosuite::News',
status => [1,2],
offset => $size * ($p-1),
limit => $size,
order => ['date', 'direct'],
ref $document ? (excludes => [$document->id]) : (),
return_mode => 'array_ref',
);
$total = $keeper->get_documents (
s => $section->id,
# class => 'promosuite::Article',
class => 'promosuite::News',
status => [1,2],
count => 1,
);
if ( $p == 1 && !$document ) {
$document = shift @$documents if @$documents;
}
}
</%init>
Небольшая справка по веткам
cnddist – контейнер, в котором хранятся все дистрибутивы всех библиотек и программных пакетов, которые использовались при построении различных версий Contenido. Если какой-то библиотеки в данном хранилище нет, инсталлятор сделает попытку "подтянуть" ее с веба (например, с CPAN). Если библиотека слишком старая, есть очень большая вероятность, что ее там уже нет. Поэтому мы храним весь хлам от всех сборок. Если какой-то дистрибутив вдруг отсутствует в cnddist - напишите нам, мы положим его туда.
koi8 – отмирающая ветка, чей код, выдача и все внутренние библиотеки заточены на кодировку KOI8-R. Вносятся только те дополнения, которые касаются внешнего вида и функционала админки, баги ядра, обязательные обновления портов и мелочи, которые легко скопипастить. В дальнейшем планируется полная остановка поддержки по данной ветке.
utf8 – актуальная ветка, заточенная под UTF-8.
Внутри каждой ветки: core – исходники ядра; install – скрипт установки инсталляции; plugins – плагины; samples – "готовые к употреблению" проекты, которые можно поставить, запустить и посмотреть, как они работают.