% 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", document => $document &> % } else { <& "/comps/article.msn", document => $document &> % } % } ### /Область документа
% if ( $m->comp_exists ("/comps/$prj/right.msn") ) { <& "/comps/$prj/right.msn" &> % }else{ <& /comps/right.msn &> % }
% ### Футер % ############################################## % if ( $m->comp_exists ("/comps/$prj/footer.msn") ) { <& "/comps/$prj/footer.msn" &> % } else { <& "/comps/footer.msn" &> % } % ### /Футер <%args> $id => undef <%init> &abort404 unless $id; &abort404 unless $id =~ /^\d+$/; my $prj = $request->{project}; my $profile = $request->{project_profile}; my $root = $request->{project_section}; my $document; $document = $keeper->get_document_by_id ($id, s => $root->id, # class => 'promosuite::Article', class => 'promosuite::News', status => 1, );