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