Revision 3 (by ahitrov@rambler.ru, 2010/03/24 15:19:32) |
The CORE
|
<& "/contenido/components/header.msn", title => '�������� �����' &>
<br>
<table border="0" style="font-size:85%;" width="80%">
<tr>
<td width="10"></td>
<td>
<div style="font-size:130%;">�������� �����</div>
<br>
�� ���� �������� �� ������ ������ ������ �������� ����. ��� ������� �� �������� ����� �� �������� �� ��������������
���������, � �������� ��������� ��� �������� �����. ������ ����� ����� ���� ��������� ������ � ������ ���������.
<p>
�������� ��������, ��� �������� ����� �� ����� ����������� �� �����������, � � ������� ����.
</td>
</tr>
<tr>
<td></td>
<td>
<br><br>
<div style="font-size:130%;">������</div>
<!-- ������ �������� ���� -->
% my $divider = scalar(@keywords) / 5;
% if ($divider < 25) { $divider = 200 };
<table border=0 cellpadding=0 cellspacing=0 style="font-size:98%">
<tr>
<td width="20%">
% my $count = 0;
% for my $KEY (sort { $a->{keyword} cmp $b->{keyword} } (@keywords))
% {
% my $document = $keeper->get_document_by_id($KEY->{id});
% my $unlinked = $document->section ? 0 : 1;
% my $document_access = $user->section_accesses($user, $document->section);
% my $href = $document_access == 2 || $unlinked;
% if (((++ $count) % $divider) == 0)
% {
</td><td>
% }
<% $href ? '<a href="/contenido/document.html?id=' . $KEY->{id} . '">' : '' %><% $unlinked ? '<i>' : '' %><% $KEY->{keyword} %><% $unlinked ? '</i>' : '' %><% $href ? '</a>' : '' %><br>
% }
</td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>
<%init>
use vars qw($project $state $user $keeper $request);
my @keywords = $keeper->get_keywords();
</%init>