Index: object_form.msn =================================================================== --- object_form.msn (revision 116) +++ object_form.msn (revision 117) @@ -99,7 +99,7 @@
-

Мультимедиа-объекты к <% $PROTOS->{$proto}->[2] %>

+

Мультимедиа-объекты к <% $PROTOS->{$proto}->[2] %>

% for (0..$#properties) % { @@ -271,4 +271,7 @@ if ($toopi && (ref($toopi) eq 'HASH') && (exists($toopi->{ $object->class }))) { %{ $options } = %{ $toopi->{ $object->class } }; } + my $is_multimedia = scalar( grep { $_->{type} =~ /(image|multimedia|audio)/ } $object->structure ); + my $is_pickup = scalar( grep { $_->{type} =~ /(pickup)/ } $object->structure ); + \ No newline at end of file