% if ( $m->comp_exists ("/comps/$prj/header.msn") ) {
<& "/comps/$prj/header.msn", alias => 'main' &>
% } else {
<& "/comps/header.msn", alias => 'main' &>
% }
% if ( $m->comp_exists ("/comps/$prj/left.msn") ) {
<& "/comps/$prj/left.msn" &>
% }
|
|
<% $section->name %>
% foreach my $cert ( @documents ) {
% my $image = $cert->get_image('photo');
% next unless ref $image && exists $image->{filename};
% my $mini = $image->{mini}{'200x200'};
% }
|
% ### Футер
% ##############################################
% if ( $m->comp_exists ("/comps/$prj/footer.msn") ) {
<& "/comps/$prj/footer.msn" &>
% } else {
<& "/comps/footer.msn" &>
% }
% ### /Футер
<%args>
$p => 1
$id => undef
%args>
<%init>
my $prj = $request->{project};
my $profile = $request->{project_profile};
my $root = $request->{project_section};
&abort404 if $id && $id !~ /^\d+$/;
my @documents;
my ($section) = $keeper->get_sections (
s => $root->id,
class => 'promosuite::MultimediaSection',
alias => 'cert',
limit => 1,
status => 1,
);
if ( ref $section ) {
my $get_documents = $section->_sorted ? 'get_sorted_documents' : 'get_documents';
@documents = $keeper->$get_documents (
s => $section->id,
class => 'promosuite::Multimedia',
status => 1,
);
}
%init>