Line # Revision Author
1 3 ahitrov@rambler.ru <& "/contenido/components/header.msn", title => $PROTOS->{$proto}->[0] &>
2
3
4
5 <br>
6 <table border="0" style="font-size:85%;" width="80%">
7 <tr>
8 <td width="10"></td>
9 <td>
10 <div style="font-size:130%;"><% $PROTOS->{$proto}->[0] %></div>
11 ����� ������� ������� ������ "���������" � ������� ����������� 5-�� ������ �����. ������ �����������! ��������� ��� �� ������������ �� �����. ��� �������� ������-���� ����� ������ ������� ��� ���������� ������ ��� ��������.
12 <p>� �������� ����� ����������� ����� ���������� ��� ������ perl-����� �������. �� ���� ������ �� ����� ������ ������� ��� ������ �� ������� <a href="dump.html?proto=project" onclick="openWin('dump.html?proto=project','proto',800,600);return false">$project</a>, ������������� �� ������ ��������.
13 <p><% $PROTOS->{$proto}->[1] %>
14 </td>
15 </tr>
16
17 <tr><td height="20"></td></tr>
18
19 <form action="./options.html" method="post">
20 <input type="hidden" name="control_charset" value="��������">
21 <input type="hidden" name="proto" value="<% $proto %>">
22 <tr>
23 <td></td><td>
24
25 %# ### SECTION ALIAS ###############################
26 % if ($proto eq 's_alias') {
27
28 <table border="0" width="60%">
29 <tr>
30 <th>��������</th>
31 <th>��������</th>
32 </tr>
33 % if (ref($toopi) eq 'HASH')
34 % {
35 % for my $p (sort { $a cmp $b } (keys(%{ $toopi })))
36 % {
37 <tr>
38 <td width="40%"><% $p %></td>
39 <td>
40 <select style="width:100%;" name="option_<% $p %>">
41 <option></option>
42 <& "/contenido/components/select_index_tree.msn", selected => $toopi->{$p} &>
43 </select>
44 </td>
45 </tr>
46 % }
47 % }
48 % for (1..5)
49 % {
50 <tr>
51 <td width="40%"><input type="text" name="newoption_id_<% $_ %>" value=""></td>
52 <td>
53 <select style="width:100%;" name="newoption_value_<% $_ %>">
54 <option></option>
55 <& "/contenido/components/select_index_tree.msn" &>
56 </select>
57 </tr>
58 % }
59 </table>
60
61 %# ### DOCUMENTS ALIAS ###############################
62 <%DOC>
63 % } elsif( $proto eq 'd_alias' ) {
64
65
66 � ��������
67
68 <& "/contenido/components/obj_list_js.msn" &>
69 <table border="0" width="80%">
70 <tr>
71 <th>��������</th>
72 <th>��������</th>
73 </tr>
74 % if (ref($toopi) eq 'HASH')
75 % {
76 % for my $p (sort { $a cmp $b } (keys(%{ $toopi })))
77 % {
78 <tr valign="top">
79 <td width="25%"><% $p %></td>
80 <td><&
81 "/contenido/components/_show_obj_list.msn",
82 name => 'newoption_value_'.$_,
83 check => $toopi->{$p},
84
85 &></td>
86 </tr>
87 % }
88 % }
89 % for (1..5)
90 % {
91 <tr valign="top">
92 <td width="25%"><input type="text" name="newoption_id_<% $_ %>" value=""></td>
93 <td><& "/contenido/components/_show_obj_list.msn" &></td>
94 </tr>
95 % }
96 </table>
97 </%DOC>
98 % } else {
99
100
101 <table border="0" width="60%">
102 <tr>
103 <th>��������</th>
104 <th>��������</th>
105 </tr>
106 % if (ref($toopi) eq 'HASH')
107 % {
108 % for my $p (sort { $a cmp $b } (keys(%{ $toopi })))
109 % {
110 <tr>
111 <td width="40%"><% $p %></td>
112 <td><input type="text" style="width:100%;" name="option_<% $p %>" value="<% $toopi->{$p} %>"></td>
113 </tr>
114 % }
115 % }
116 % for (1..5)
117 % {
118 <tr>
119 <td width="40%"><input type="text" name="newoption_id_<% $_ %>" value=""></td>
120 <td><input type="text" style="width:100%;" name="newoption_value_<% $_ %>" value=""></td>
121 </tr>
122 % }
123 </table>
124
125 % }
126
127 </td>
128 </tr>
129
130 <tr><td height="20"></td></tr>
131 <tr><td></td><td>
132 <input type="submit" value="��������� ���������" style="font-size:13pt;font-weight:bold; height:40px;margin-bottom: 5px; background-color:#930300;color:#FFFFFF;">
133 <input type="hidden" name="save" value="1">
134 </td></tr>
135 </form>
136
137 </table>
138 </body>
139 </html>
140
141 <%ARGS>
142
143 $proto => undef
144 $save => undef
145
146 </%ARGS>
147 <%INIT>
148
149 use vars qw($keeper $request $sect);
150 my $PROTOS = {
151 'colors' => ['�������������� �������� ����������','� ���� ���� �������� ��������� ��� ��������� ��������� ����������, �������� ���������, �������� ������ � �.�.'],
152 'widths' => ['������','� ���� ���� �������� ����������� ��� ����������� ��������� ��������� ��������. ��� ������, �������, ���������� � �.�.'],
153 'params' => ['�������������� ���������','� ���� ���� �������� ��������� ������������ ���������, �� ���������� � ������ ������.'],
154 's_alias' => ['�������������� ������','����� ��������� ������ (������) ������������� ����������� ��������� ��������������-�����. ��� �������� ��� ����, ����� ��������� ������ ������������� ���������� � ����������� ���������������� ������'],
155 'd_alias' => ['�������������� ����������','����� ��������� ���������� ������������� ����������� ��������� ��������������-�����. ��� �������� ��� ����, ����� ��������� ��������� � ����������� ���������������� ������'],
156 'redirects' => ['�������� �����','����� ������������ ��������� (�� ���� ����������� � �� ��������). � �������� ��������� ��������� �������� ���, � � �������� �������� - ��� URI (<b>������� ��������� ���� /</b>, index.html ��������� �� ����).'],
157 };
158
159 my $toopi = $project->$proto();
160 if ( ($save) && (exists($PROTOS->{$proto})) )
161 {
162 my $N = {};
163 my $V = {};
164 foreach my $p (keys(%ARGS))
165 {
166 if ($p =~ /^option_(.+)$/)
167 {
168 if ( (length($ARGS{'option_'.$1})<1) && (exists($toopi->{$1})) )
169 {
170 delete $toopi->{$1};
171 } else {
172 $toopi->{$1} = $ARGS{'option_'.$1};
173 }
174 } elsif ($p =~ /^newoption_id_(.+)$/)
175 {
176 $N->{$1} = $ARGS{'newoption_id_'.$1};
177 } elsif ($p =~ /^newoption_value_(.+)$/)
178 {
179 $V->{$1} = $ARGS{'newoption_value_'.$1};
180 }
181 }
182 foreach my $n (keys(%{ $N }))
183 {
184 next if (length($N->{$n}) < 1);
185 $toopi->{$N->{$n}} = $V->{$n};
186 }
187
188 $project->$proto($toopi);
189 $project->store($keeper);
190
191 } elsif ( $proto eq 's_alias' && not defined $save) {
192 #warn Data::Dumper::Dumper($sect)."\n";
193 }
194
195 </%INIT>