Line # Revision Author
1 296 ahitrov <div class="r--normal">
2 <h1>Проекты</h1>
3
4 <div class="leftmenu">
5 % foreach my $section ( @$subsections ) {
6 % my $icon = $section->get_image('icon');
7 % my $img = ref $icon && exists $icon->{filename} ? '<img src="'.$icon->{filename}.'" width="26" height="26" alt="" border="0" align="absmiddle">' : '';
8 % my $class = $section->id == $s ? 'menu on' : 'menu';
9 <div class="<% $class %>"><% $img.$section->name %></div>
10 % my @docs = grep { grep { $_ == $section->id } $_->sections } @$documents;
11 % if ( @docs ) {
12 <ul>
13 % foreach my $doc ( @docs ) {
14 % my $class = $doc->id == $id ? 'class="on"' : '';
15 <li <% $class %>><a href="./?id=<% $doc->id %>"><% $doc->name || 'Документ без имени' %></a></li>
16 % }
17 </ul>
18 % }
19 % }
20 <br>
21
22 <a href="./feedback.html" class="dotted" onclick="javascript:showObject(mailform); return false;">Обратная связь</a><br><br>
23 <a href="http://planeta.rambler.ru/community/razrabot4iks/" class="dotted" target="_blank">Перейти к обсуждению<br> в сообществе</a><br>
24
25 </div></div>
26 <%args>
27
28 $s => undef
29 $id => undef
30
31 </%args>
32 <%init>
33
34 my $subsections = $request->{subsections};
35 return unless ref $subsections eq 'ARRAY' && @$subsections;
36
37 my $documents;
38 if ( ref $subsections eq 'ARRAY' && @$subsections ) {
39 my @sids = map { $_->id } @$subsections;
40 $documents = $keeper->get_documents (
41 s => \@sids,
42 class => 'promosuite::Article',
43 light => 1,
44 status => 'positive',
45 return_mode => 'array_ref',
46 );
47 }
48
49 </%init>