Line # Revision Author
1 8 ahitrov@rambler.ru <table border="0" width="100%">
2 <tr>
3 <td colspan="4" style="font-family:Tahoma;background-color:#dcdcdc;color:#000000;font-size:95%;padding: 5px;"><center>Настройка источника линка</center></td>
4 </tr>
5
6 <tr>
7 <th>Идентификатор</th>
8 <th>Русское название</th>
9 <th>&nbsp</th>
10 <th>Допустимые Классы</th>
11 </tr>
12
13 % for my $obj_list (@totals)
14 % {
15
16 <tr>
17
18 <td width="15%" valign="top" style="font-size:80%; font-family:Tahoma;">
19 <% $obj_list->{attr} %>
20 </td>
21
22 <td width="20%" valign="top" style="font-size:80%; font-family:Tahoma;">
23 <% $obj_list->{rusname} %>
24 </td>
25
26 <td width="35%" valign="top">&nbsp;</td>
27
28 <td>
29 % my @local_values = ();
30 % for my $class (@{ $state->{available_documents} })
31 % {
32 % push (@local_values, $class, $class);
33 % }
34 % my @local_checks = ();
35 % if (exists($options->{ $obj_list->{attr} }))
36 % {
37 % @local_checks = split(',', $options->{ $obj_list->{attr} }->[1] );
38 % }
39 %
40 <& "/contenido/components/select.msn", multiple=>1, size=>5, values=>\@local_values, width=>"90%;", name=>$obj_list->{attr}.'.obj_list_classes', check=>\@local_checks &>
41 </td>
42 </tr>
43
44 % }
45 </table>
46
47 <%ARGS>
48
49 $object => undef
50 $options => undef
51
52 </%ARGS>
53 <%INIT>
54 return if (! ref($object));
55
56 my @totals = ();
57 my @properties = $object->structure();
58 for (0..$#properties)
59 {
60 my $prop = $properties[$_];
61 if ($prop->{type} eq 'link_source_id')
62 {
63 push (@totals, $prop );
64 }
65 }
66
67 return if (scalar(@totals) == 0);
68
69 </%INIT>