% if ( $m->comp_exists ("/comps/$prj/header.msn") ) {
<& "/comps/$prj/header.msn", alias => 'main' &>
% } else {
<& "/comps/header_rambler.msn", alias => 'main' &>
% }
|
|
% 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
- Безопасность авторизации
%doc>
<% $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
%args>
<%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;
}
%init>