| 1 |
3 |
ahitrov@rambler.ru |
<fieldset> |
| 2 |
|
|
<legend>����� �� �������</legend> |
| 3 |
|
|
|
| 4 |
|
|
<table width="100%" border="0" cellpadding="3" cellspacing="0" class="tlistdocs"> |
| 5 |
|
|
<tr bgcolor="#efefef"> |
| 6 |
|
|
<th align="center" width="1%">N</th> |
| 7 |
|
|
<th colspan=2>��������</th> |
| 8 |
|
|
% my $serial=0; |
| 9 |
|
|
% foreach my $local_class (sort {$a->class_name cmp $b->class_name} @{ $user->get_available_classes }) { |
| 10 |
|
|
% $serial++; |
| 11 |
|
|
% my $document = new $local_class ($keeper); |
| 12 |
|
|
% next unless (ref($document)); |
| 13 |
|
|
% if ($local_class eq $class) { |
| 14 |
|
|
<tr bgcolor="green">\ |
| 15 |
|
|
% } else { |
| 16 |
|
|
<tr>\ |
| 17 |
|
|
% } |
| 18 |
|
|
<td><% $serial %></td>\ |
| 19 |
|
|
<td style="font-size:75%;" nowrap><% $document->class_name() %></td>\ |
| 20 |
|
|
<td style="font-size:75%;" nowrap align="right"><a href="sections.html?class=<% $document->class() %>&id=<% $id %>&use_section=1">� ������</a>/<a href="sections.html?class=<% $document->class() %>&id=<% $id %>">��� �����</a> ������</td>\ |
| 21 |
|
|
</tr> |
| 22 |
|
|
% } |
| 23 |
|
|
</table> |
| 24 |
|
|
</fieldset> |
| 25 |
|
|
|
| 26 |
|
|
<%ONCE> |
| 27 |
|
|
use locale; |
| 28 |
|
|
</%ONCE> |
| 29 |
|
|
<%ARGS> |
| 30 |
|
|
$section => undef |
| 31 |
|
|
$class => undef |
| 32 |
|
|
</%ARGS> |
| 33 |
|
|
<%INIT> |
| 34 |
|
|
# return undef if (! ref($section)); |
| 35 |
|
|
my $id=ref($section) ? $section->id() : ''; |
| 36 |
|
|
</%INIT> |