Line # Revision Author
1 8 ahitrov@rambler.ru <!-- Форма для редактирования объекта -->
2 <a name="top"></a>
3 374 ahitrov
4 % if ( $m->comp_exists ('/contenido/components/object_context_form.msn') ) {
5 <div style="text-align:right;"><& '/contenido/components/object_context_form.msn', object => $object &></div>
6 % }
7
8 440 ahitrov <form enctype="multipart/form-data" action="<% $PROTOS->{$proto}->[1] %>" method="POST" name="form" onSubmit="return Save(this)">
9 8 ahitrov@rambler.ru <table border="0" width="100%" cellspacing="0" cellpadding="6">
10 <tr>
11 <td style="font-size:110%;">
12 <b><% (ref($object) && $object->id() ) ? 'Редактирование' : 'Создание' %> <% $PROTOS->{$proto}->[0] %> типа "<% $object->class_name() %>"</b>
13 </td>
14 <td align="right">
15 % unless ( $proto eq 'sections' && $object->id == 1 ) {
16 <input type="submit" value="Сохранить" class="input_btn">
17 % if (( $proto eq 'documents' ) || ( $proto eq 'sections' )) {
18 <input type="submit" name="_save_and_leave" value="Сохранить и выйти" class="input_btn">
19 <input type="submit" name="_save_and_again" value="Сохранить и создать новый" class="input_btn">
20 % }
21 % }
22 </td>
23 </tr>
24 </table>
25
26 % if ( $m->comp_exists ('/contenido/components/object_context_menu.msn') ) {
27 <div style="text-align:right;"><& '/contenido/components/object_context_menu.msn', object => $object &></div>
28 % }
29
30 <center>
31 <table width="100%" cellpadding="0" cellspacing="0" border="0">
32 <tr>
33 <td bgcolor="#999999">
34 <table width="100%" cellpadding="0" cellspacing="1" border="0">
35 <tr><td valign="top" width="80%" bgcolor="#ffffff">
36 <center>
37 <table width="98%" cellpadding="1" cellspacing="0" border="0">
38
39 <%perl>
40
41 my @properties = $object->structure();
42
43 for (0..$#properties)
44 {
45
46 my $prop = $properties[$_];
47 271 ahitrov my $name = $prop->{attr};
48 347 ahitrov next if ($prop->{hidden} == 1) || ($prop->{type} eq 'image') || ($prop->{type} eq 'external') || ($prop->{type} =~ /^array/i) || ($prop->{type} =~ /^image/) || ($prop->{type} eq 'multimedia') || ($prop->{type} eq 'multimedia_new') || ($prop->{type} eq 'multimedia_multi') || ($prop->{type} eq 'audio');
49 8 ahitrov@rambler.ru
50 </%perl>
51 <tr><td height="8"></td></tr>
52 <tr><td nowrap>
53 <table cellpadding="0" cellspacing="0" border="0">
54 <tr>
55 % if( ( $prop->{type} eq 'flag' ) || ($prop->{type} eq 'checkbox') )
56 % {
57 271 ahitrov <td><& "/contenido/components/inputs/checkbox.msn", prop => $prop, object=>$object, options=>$options, name => $name, check => ($object->$name || $object->{$name}), id => $object->id() &></td>
58 8 ahitrov@rambler.ru % }
59 <td nowrap><b><% $prop->{rusname} %></b>&nbsp;/</td>
60 <td align="right" nowrap><font color="#888888" size="-1">&nbsp;name="<% $prop->{attr} %>"</font></td>
61 % if( $prop->{readonly} )
62 % {
63 <td align="right" nowrap>&nbsp;/&nbsp;<font color="#CC0000" size="-1">Значение нельзя изменить</font></td>
64 % }
65 </tr>
66 </table>
67 </td></tr>
68 418 ahitrov % if ($prop->{type} eq 'parent') {
69 271 ahitrov <tr><td><& "/contenido/components/inputs/$prop->{type}.msn", prop => $prop, object=>$object, options=>$options, name => $name, check => ($object->$name || $prop->{default} || $sect_id ), id => $object->id() &></td></tr>
70 418 ahitrov % } elsif( ( $prop->{type} ne 'flag' ) && ($prop->{type} ne 'checkbox') ) {
71 % if ( $m->comp_exists( "/contenido/components/inputs/$prop->{type}.msn" ) ) {
72 271 ahitrov <tr><td><& "/contenido/components/inputs/$prop->{type}.msn", prop => $prop, object=>$object, options => $options, name => $name, check => ($object->$name || $object->{$name}), id => ($object->id() || 0) &></td></tr>
73 418 ahitrov % } else {
74 <tr><td style="color:red">Попытка вызвать компоненту неизвестного типа (<% Dumper $prop %>)</td></tr>
75 % }
76 8 ahitrov@rambler.ru % }
77 % }
78 <tr>
79 <td><br>
80
81 % for (0..$#properties)
82 % {
83 % my $prop = $properties[$_];
84 % next if ($prop->{hidden} != 1);
85 % next if ($prop->{attr} eq 'id' && $clone);
86 <input type="hidden" name="<% $prop->{attr} %>" value="<% html_escape($object->{ $prop->{attr} }) %>">
87 % }
88 <input type="hidden" name="sect_id" value="<% $sect_id %>">
89 %#если класса в свойствах обьекта нет все равно надо его пробросить как hidden
90 % unless (grep {$_->{attr} eq 'class'} @properties) {
91 <input type="hidden" name="class" value="<% html_escape($object->{class}) %>">
92 % }
93 % if ( $clone ) {
94 <input type="hidden" name="clone" value="<% $object->id %>">
95 % }
96 <input type="hidden" name="save" value="1">
97
98 </td>
99 </tr>
100 </table>
101 </center>
102
103 </td>
104 <td valign="top" bgcolor="#efefef">
105 <div style="width:270px"><spacer type="block" width="270"></div>
106 <div><iframe name="DocFinder" id="DocFinder" src="/contenido/find_document.html" frameborder="0"
107 marginheight="0" marginwidth="0" width="100%" height="0"></iframe></div>
108 <table cellpadding="5" cellspacing="0" border="0"><tr><td>
109 117 ahitrov <p><b style="font-size:15px;"><nobr>Мультимедиа-объекты</nobr> к&nbsp;<% $PROTOS->{$proto}->[2] %></b></p>
110 8 ahitrov@rambler.ru
111 % for (0..$#properties)
112 % {
113 % my $prop = $properties[$_];
114 %
115 % if ($prop->{type} eq 'image')
116 % {
117 % my $IMAGE = $object->get_image( $prop->{attr} );
118 % if (ref($IMAGE) ne 'HASH') { next };
119 <& "/contenido/components/inputs/image.msn",
120 IMAGE => $IMAGE,
121 rusname => $prop->{rusname},
122 prop => $prop, object=>$object,
123 attr => $prop->{attr},
124 options => $options,
125 &>
126
127 % } elsif ($prop->{type} eq 'images')
128 % {
129 % my $IMAGES = $object->get_image( $prop->{attr} );
130 % if (ref($IMAGES) ne 'HASH') { next };
131 % my $MN = $IMAGES->{maxnumber}+0;
132 % for my $mn (1..$MN)
133 % {
134 % my $IMAGE = $IMAGES->{'image_'.$mn};
135
136 <& "/contenido/components/inputs/image.msn",
137 rusname => $prop->{rusname},
138 prop => $prop, object=>$object,
139 attr => $prop->{attr}.'_'.$mn,
140 IMAGE => $IMAGE,
141 options => $options,
142 &>
143
144 % }
145 63 ahitrov@rambler.ru % my $ME = exists $prop->{empty_slots} ? $prop->{empty_slots} : 5;
146 % $ME = ($ME + $IMAGES->{maxnumber}) >= 100 ? 0 : (100 - $IMAGES->{maxnumber} < $ME ? 100 - $IMAGES->{maxnumber} : $ME );
147 % for my $mn (1..$ME)
148 8 ahitrov@rambler.ru % {
149
150
151 <& "/contenido/components/inputs/image.msn",
152 IMAGE => {},
153 rusname => $prop->{rusname},
154 prop => $prop, object=>$object,
155 attr => $prop->{attr}.'_'.($MN+$mn),
156 options => $options,
157 &>
158
159 % }
160 % } elsif ($prop->{type} eq 'multimedia')
161 % {
162 % my $MULTI = $object->get_image( $prop->{attr} );
163
164 <& "/contenido/components/inputs/multimedia.msn",
165 rusname => $prop->{rusname},
166 prop => $prop, object=>$object,
167 attr => $prop->{attr},
168 MULTI => $MULTI,
169 options => $options,
170 &>
171 347 ahitrov % } elsif ($prop->{type} eq 'multimedia_new') {
172 8 ahitrov@rambler.ru % my $MULTI = $object->get_image( $prop->{attr} );
173
174 <& "/contenido/components/inputs/multimedia_new.msn",
175 rusname => $prop->{rusname},
176 prop => $prop, object=>$object,
177 attr => $prop->{attr},
178 MULTI => $MULTI,
179 options => $options,
180 347 ahitrov &>
181
182 % } elsif ($prop->{type} eq 'multimedia_multi') {
183 % my $FILES = $object->get_image( $prop->{attr} );
184 % if (ref($FILES) ne 'HASH') { next };
185 % my $MN = $FILES->{maxnumber}+0;
186 % for my $mn (1..$MN) {
187 % my $MULTI = $FILES->{'file_'.$mn};
188 <& "/contenido/components/inputs/multimedia_new.msn",
189 rusname => $prop->{rusname},
190 prop => $prop, object=>$object,
191 attr => $prop->{attr}.'_'.$mn,
192 MULTI => $MULTI,
193 options => $options,
194 &>
195
196 % }
197 % my $ME = exists $prop->{empty_slots} ? $prop->{empty_slots} : 3;
198 % $ME = ($ME + $FILES->{maxnumber}) >= 100 ? 0 : (100 - $FILES->{maxnumber} < $ME ? 100 - $FILES->{maxnumber} : $ME );
199 % for my $mn (1..$ME) {
200
201 <& "/contenido/components/inputs/multimedia_new.msn",
202 rusname => $prop->{rusname},
203 prop => $prop, object=>$object,
204 attr => $prop->{attr}.'_'.($MN+$mn),
205 MULTI => {},
206 options => $options,
207 &>
208
209 % }
210 % } elsif ($prop->{type} eq 'audio') {
211 8 ahitrov@rambler.ru % my $MULTI = $object->get_image( $prop->{attr} );
212
213 <& "/contenido/components/inputs/audio.msn",
214 rusname => $prop->{rusname},
215 prop => $prop, object=>$object,
216 attr => $prop->{attr},
217 MULTI => $MULTI,
218 options => $options,
219 &>
220 % }
221 % }
222
223 </table>
224 </td></tr></table>
225
226
227 </td></tr>
228 </table>
229
230 </td></tr></table>
231 </center>
232
233 <script>
234 <!--
235 function updateList(theFild,value,text) {
236 for (var i = 0; i < theFild.options.length; i++) {
237 if (theFild.options[i].value == value) {
238 return false;
239 }
240 }
241 var option_length = theFild.options.length++;
242 eval("theFild.options[option_length].value=value");
243 eval("theFild.options[option_length].text=text");
244
245 Save(); this.form.submit();
246
247 }
248 //-->
249 </script>
250
251 % unless ( $proto eq 'sections' && $object->id == 1 ) {
252 <div align="center"><input type="submit" value="Сохранить" class="input_btn">
253 %# <input type="submit" value="Сохранить изменения в <% $PROTOS->{$proto}->[3] %>" class="input_btn">
254
255 %#
256 %# Как же сохранять эти гребанные связи?
257 %# onClick="javascript:updateList(parent.opener.links.links,'link_6_20_DefaultLink','test');"
258 %#
259
260
261 % if ($object->id > 0 && !$clone) {
262 <input name="delete" type="button" value="Удалить" onClick="javascript:window.location='confirm.html?id=<% $object->id() %>&action=<% $proto %>_deletion&class=<% $object->class() %>'" class="input_btn">\
263 % }
264 % if ( ref $filter_params eq 'HASH' ) {
265 % while ( my ($key, $value) = each %$filter_params ) {
266 % next if grep { $_->{attr} eq $key } $object->structure();
267 <input type="hidden" name="<% $key %>" value="<% $value %>">
268 % }
269 % }
270 <input type="hidden" name="control_charset" value="Контроль">
271 % if (( $proto eq 'documents' ) || ( $proto eq 'sections' )) {
272 <input type="submit" name="_save_and_leave" value="Сохранить и выйти" class="input_btn">
273 % unless ( $clone ) {
274 <input type="submit" name="_save_and_again" value="Сохранить и создать новый" class="input_btn">
275 % }
276 % }
277 </div>
278 % }
279 </form>
280
281 <%ARGS>
282
283 $proto => 'documents'
284 $object => undef
285 $clone => undef
286 $sect_id => 1
287 $filter_params => undef
288
289 </%ARGS>
290
291 <%ONCE>
292 my $PROTOS = {
293 'documents' => ['документа','document.html','документу','документе'],
294 'sections' => ['секции','section.html','секции','секции'],
295 'links' => ['связи','link.html','связи','связи'],
296 'users' => ['пользователя','users.html','пользователю','пользователе'],
297 };
298 </%ONCE>
299
300 <%INIT>
301 return undef unless ref($object);
302
303 my $toopi = $project->$proto();
304 my $options = {};
305 if ($toopi && (ref($toopi) eq 'HASH') && (exists($toopi->{ $object->class }))) {
306 %{ $options } = %{ $toopi->{ $object->class } };
307 }
308 117 ahitrov my $is_multimedia = scalar( grep { $_->{type} =~ /(image|multimedia|audio)/ } $object->structure );
309 my $is_pickup = scalar( grep { $_->{type} =~ /(pickup)/ } $object->structure );
310
311 8 ahitrov@rambler.ru </%INIT>