<% $id ? 'All news' : $section->name %>

% foreach my $doc (@news) { % my ($a1, $a2) = $doc->body ? ('','') : ('',''); % my $dt = Contenido::DateTime->new( postgres => $doc->dtime );

<% $dt->dmy('.') %>: <% $a1.$doc->name.$a2 %>

% if ( $doc->abstr ) {

<% $doc->abstr %>

% }

% } % if ($total > $n) {

Страница <& /inc/pages_.msn, total => $total, n => $n, p => $p &>

% }

<%args> $n => 20 $p => 1 $id => undef $class => 'news' $section => undef <%init> my $prj = $request->{project}; my $profile = $request->{project_profile}; my $root = $request->{project_section}; ($section) = $keeper->get_sections ( s => $root->id, class => 'promosuite::NewsSection', status => 1, limit => 1, ) unless ref $section; return unless ref $section; my $total = $keeper->get_documents ( s => $section->id, class => 'promosuite::News', status => 'positive', count => 1, ); my @news = $keeper->get_documents ( s => $section->id, class => 'promosuite::News', status => 'positive', limit => $n, offset => $n*($p-1), order => [qw|date direct|], ); return unless @news;