Repository List / Contenido / utf8 / samples / promosuite / comps / comps / developers / menus.msn @ r296

<div class="r--normal">
<h1>Проекты</h1>

<div class="leftmenu">
% foreach my $section ( @$subsections ) {
%	my $icon = $section->get_image('icon');
%	my $img = ref $icon && exists $icon->{filename} ? '<img src="'.$icon->{filename}.'" width="26" height="26" alt="" border="0" align="absmiddle">' : '';
%	my $class = $section->id == $s ? 'menu on' : 'menu';
<div class="<% $class %>"><% $img.$section->name %></div>
%	my @docs = grep { grep { $_ == $section->id } $_->sections } @$documents;
%	if ( @docs ) {
<ul>
%		foreach my $doc ( @docs ) {
%			my $class = $doc->id == $id ? 'class="on"' : '';
<li <% $class %>><a href="./?id=<% $doc->id %>"><% $doc->name || 'Документ без имени' %></a></li>
%		}
</ul>
%	}
% }
<br>

<a href="./feedback.html" class="dotted" onclick="javascript:showObject(mailform); return false;">Обратная связь</a><br><br>
<a href="http://planeta.rambler.ru/community/razrabot4iks/" class="dotted" target="_blank">Перейти к обсуждению<br> в сообществе</a><br>

</div></div>
<%args>

	$s	=> undef
	$id	=> undef

</%args>
<%init>

  my $subsections = $request->{subsections};
  return	unless ref $subsections eq 'ARRAY' && @$subsections;

  my $documents;
  if ( ref $subsections eq 'ARRAY' && @$subsections ) {
	my @sids = map { $_->id } @$subsections;
	$documents = $keeper->get_documents (
		s	=> \@sids,
		class	=> 'promosuite::Article',
		light	=> 1,
		status	=> 'positive',
		return_mode	=> 'array_ref',
	);
  }

</%init>