% 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" &> % } DIATON tonometer

<% $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 <%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, ); }