Index: object_form.msn
===================================================================
--- object_form.msn (revision 120)
+++ object_form.msn (revision 121)
@@ -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 } };
}
-%INIT>
+ my $is_multimedia = scalar( grep { $_->{type} =~ /(image|multimedia|audio)/ } $object->structure );
+ my $is_pickup = scalar( grep { $_->{type} =~ /(pickup)/ } $object->structure );
+
+%INIT>
\ No newline at end of file
|