Line # Revision Author
1 8 ahitrov@rambler.ru <form action="./tabs.html" method="post">
2
3 <input type="hidden" name="control_charset" value="Контроль">
4 <input type="hidden" name="id" value="<% $tab->{id} %>">
5 <table border="0" width="60%" class="tform">
6
7 <tr>
8 <td valign="top" width="40%">Идентификатор профиля:</td>
9 <td><b><% $tab->{id} %></b></td>
10 </tr>
11
12 <tr>
13 <td valign="top" width="40%">Название профиля:</td>
14 <td><input type="text" style="width:90%;" name="name" value="<% $tab->{name} %>"></td>
15 </tr>
16
17 <tr>
18 <td valign="top" width="40%">Глубина рубрикатора:</td>
19 <td><input type="text" style="width:90%;" name="level" value="<% $tab->{level} || 3 %>"></td>
20 </tr>
21
22 <tr>
23 <td valign="top" width="40%">Типы секций для показа:</td>
24 <td>
25 %
26 % my @local_values = ();
27 % for my $class (@{ $state->{available_sections} })
28 % {
29 % my $sect = new $class($keeper);
30 % push (@local_values, $class, ''.$sect->class_name.' ('.$class.')');
31 % }
32 % my @local_checks = ();
33 % if (ref($tab->{sections}))
34 % {
35 % @local_checks = @{ $tab->{sections} };
36 % }
37 <& "/contenido/components/select.msn", multiple=>1, size=>5, values=>\@local_values, width=>"90%;", name=>'sections', check=>\@local_checks &>
38 </td>
39 </tr>
40
41 <tr>
42 <td valign="top" width="40%">Редакторские возможности:</td>
43 <td>
44 % my @LEFT = $m->comp('/contenido/components/tasks.msn');
45 % @local_values = ();
46 % for my $left (@LEFT)
47 % {
48 % push (@local_values, $left->{attr}, $left->{rusname});
49 % }
50 % @local_checks = ();
51 % if (ref($tab->{lefts}))
52 % {
53 % @local_checks = @{ $tab->{lefts} };
54 % }
55 <& "/contenido/components/select.msn", multiple=>1, size=>5, values=>\@local_values, width=>"90%;", name=>'lefts', check=>\@local_checks &>
56 </td>
57 </tr>
58
59 <tr><td height="20"></td></tr>
60
61 <tr><td colspan="2">
62 <input type="submit" value="Сохранить изменения" style="font-size:13pt;font-weight:bold; height:40px;margin-bottom: 5px; background-color:#930300;color:#FFFFFF;">
63 </td></tr>
64
65 </table>
66
67 <input type="hidden" name="save" value="1">
68 </form>
69
70 <%args>
71
72 $tab => {}
73
74 </%args>
75 <%init>
76
77 use vars qw($project $state $keeper $request);
78 return undef if (! exists($tab->{id}));
79
80 </%init>