% if ( $m->comp_exists ("/comps/$prj/header.msn") ) { <& "/comps/$prj/header.msn" &> % } else { <& "/comps/header.msn" &> % } % ### контент
% if ( $id && ref $document ) { % if ( $m->comp_exists ("/comps/$prj/article.msn") ) { <& "/comps/$prj/article.msn", doc => $document, show_header => 1 &> % } else { <& "/comps/article.msn", doc => $document, show_header => 1, show_dtime => 1 &> % } % } % % if ( ref $documents && @$documents ) { %
% my $i = 0; % foreach my $doc ( @$documents ) { % if ( $i++ == int((scalar @$documents)/2) ) { % } % }
% }
% ### Футер % ############################################## % 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, $documents); 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, ); } elsif ( ref $section ) { $documents = $keeper->get_documents ( s => $section->id, class => 'promosuite::Anons', status => 1, order_by => 'name', return_mode => 'array_ref', ); }