Line # Revision Author
1 3 ahitrov@rambler.ru <& "/contenido/components/header.msn", title => '�������� �����' &>
2
3 <br>
4 <table border="0" style="font-size:85%;" width="80%">
5 <tr>
6 <td width="10"></td>
7 <td>
8 <div style="font-size:130%;">�������� �����</div>
9 <br>
10 �� ���� �������� �� ������ ������ ������ �������� ����. ��� ������� �� �������� ����� �� �������� �� ��������������
11 ���������, � �������� ��������� ��� �������� �����. ������ ����� ����� ���� ��������� ������ � ������ ���������.
12 <p>
13 �������� ��������, ��� �������� ����� �� ����� ����������� �� �����������, � � ������� ����.
14
15 </td>
16 </tr>
17
18 <tr>
19 <td></td>
20 <td>
21 <br><br>
22 <div style="font-size:130%;">������</div>
23
24 <!-- ������ �������� ���� -->
25 % my $divider = scalar(@keywords) / 5;
26 % if ($divider < 25) { $divider = 200 };
27 <table border=0 cellpadding=0 cellspacing=0 style="font-size:98%">
28 <tr>
29 <td width="20%">
30 % my $count = 0;
31 % for my $KEY (sort { $a->{keyword} cmp $b->{keyword} } (@keywords))
32 % {
33 % my $document = $keeper->get_document_by_id($KEY->{id});
34 % my $unlinked = $document->section ? 0 : 1;
35 % my $document_access = $user->section_accesses($user, $document->section);
36 % my $href = $document_access == 2 || $unlinked;
37 % if (((++ $count) % $divider) == 0)
38 % {
39 </td><td>
40 % }
41 <% $href ? '<a href="/contenido/document.html?id=' . $KEY->{id} . '">' : '' %><% $unlinked ? '<i>' : '' %><% $KEY->{keyword} %><% $unlinked ? '</i>' : '' %><% $href ? '</a>' : '' %><br>
42 % }
43 </td>
44 </tr>
45 </table>
46
47 </td>
48 </tr>
49 </table>
50
51 </body>
52 </html>
53 <%init>
54
55 use vars qw($project $state $user $keeper $request);
56
57 my @keywords = $keeper->get_keywords();
58
59 </%init>