% if ( $m->comp_exists ("/comps/$prj/header.msn") ) { <& "/comps/$prj/header.msn" &> % } else { <& "/comps/header.msn" &> % } %### новости и видео % if ( ref $video ) { % }
% % if ( $m->comp_exists ("/comps/$prj/block_news.msn") ) { <& "/comps/$prj/block_news.msn" &> % } else { <& "/comps/block_news.msn" &> % } %
<% $video->html %>
%### cегодня и видеогалерея
% ### Блок "сегодня" % ############################################## % if ( $m->comp_exists ("/comps/$prj/block_today_schedule.msn") ) { <& "/comps/$prj/block_today_schedule.msn" &> % } else { <& "/comps/block_today_schedule.msn" &> % } % ### /Футер
% if ( $m->comp_exists ("/comps/$prj/block_rep_videos.msn") ) { <& "/comps/$prj/block_rep_videos.msn", doc => $vsection, show => 'rubber', max => 10, visual => 4 &> % } else { <& "/comps/block_rep_photos.msn", doc => $vsection, show => 'rubber', max => 10, visual => 4 &> % }
% if ( $m->comp_exists ("/comps/$prj/block_rep_photos.msn") ) { <& "/comps/$prj/block_rep_photos.msn", doc => $photorep, show => 'rubber', max => 10, visual => 4 &> % } else { <& "/comps/block_rep_photos.msn", doc => $photorep, show => 'rubber', max => 10, visual => 4 &> % }
% ### Футер % ############################################## % if ( $m->comp_exists ("/comps/$prj/footer.msn") ) { <& "/comps/$prj/footer.msn" &> % } else { <& "/comps/footer.msn" &> % } % ### /Футер <%args> $p => 1 $id => undef <%init> my $prj = $request->{project}; my $profile = $request->{project_profile}; my $root = $request->{project_section}; &abort404 if $id && $id !~ /^\d+$/; my $document; my ($section) = $keeper->get_sections ( s => $root->id, class => 'promosuite::AnnoSection', limit => 1, status => 1, ); if ( $id && ref $section ) { $document = $keeper->get_document_by_id ($id, s => $section->id, class => 'promosuite::Anons', status => 1, ); } my ($psection) = $keeper->get_sections ( s => $root->id, class => 'promosuite::MultimediaSection', limit => 1, status => 1, ); my ($photorep) = $keeper->get_documents ( s => $psection->id, class => 'promosuite::Photorep', status => 1, order => ['date', 'direct'], limit => 1 ); $request->{photorep} = $photorep; my ($vsection) = $keeper->get_sections ( s => $root->id, class => 'promosuite::PromoSection', limit => 1, status => 1, ); my ($video) = $keeper->get_documents ( s => $vsection->id, class => 'promosuite::Promoblock', status => 1, order => ['date', 'direct'], limit => 1, );