% if ( $m->comp_exists ("/comps/$prj/header.msn") ) { <& "/comps/$prj/header.msn", alias => 'main' &> % } else { <& "/comps/header_rambler.msn", alias => 'main' &> % }
<& "/comps/$prj/menus.msn", s => $s, id => $id &>
% if ( $id && ref $document ) {

<% $section->name %>

% } else {

<% $profile->header %>

<& /inc/text_format.msn, doc => $profile, field => 'abstr' &>

% } % if ( $id && ref $document ) { <%doc>

<% $section->name %>

  • Интеграция ID
  • Rambler ID и OpenID
  • Безопасность авторизации

<% $document->name %>

<& /inc/text_format.msn, doc => $document &> % }
% ### Футер % ############################################## % if ( $m->comp_exists ("/comps/$prj/footer.msn") ) { <& "/comps/$prj/footer.msn" &> % } else { <& "/comps/footer_rambler.msn" &> % } % ### /Футер <%args> $id => undef <%init> my $prj = $request->{project}; my $profile = $request->{project_profile}; my $root = $request->{project_section}; &abort404 if $id && $id !~ /^\d+$/; my $subsections = $request->{subsections}; my ($section, $s, $doclist); my $document; if ( $id && ref $subsections eq 'ARRAY' ) { my @sids = map { $_->id } @$subsections; if ( @sids ) { $document = $keeper->get_document_by_id ( $id, s => \@sids, class => 'promosuite::Article', status => 1, ); } &abort404 unless ref $document; ($section) = grep { my $sec = $_->id; grep { $_ == $sec } $document->sections } @$subsections; $s = $section->id; }